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200 OE SEMINAR OUTLINE 

I. Introduction 
II. Pre-Sales Information 

A. Advantages 

1. user-operator communication via the MESSAGE and 
ANNOUNCE commands. This did not exist on the 2000 
A or B. 

2. 2000E CPU is equipped with floating point hardware. 
This significantly improves execution times of 
computation programs and hence is more cost effective. 

3. the utility routine allows an operator to do disc to 
disc transfers, 

4. multi-speed terminals of 10, 15, and 30 chars/sec. 
The A, B, and C do not have a 30CPS transfer rate. 

5. system hardware can be utilized to perform other 
functions by converting it into: 

1. 2,120 DOS 

2. 9600 real time exec. 

3. BCS 

This transformation can be made simply by configuring 
the hardware the same as the 2000E at system generation 
time. 

B. Disadvantages 

1. there is less user area for program development than 
in existing time-share systems. 

2. no formatted output capability 

3. backup of user files is a more lengthy procedure if 
system is not equipped with mag tape (standard con- 
figuration) . 

C. Sales Price (approximate) 

1. $50,000 minimum configuration 

i 

2. $l,600/month - lease 

3. $l,575/month - rental 



D. Applications 

1. mainly education 

2. some data centers 

III. System Hardware Configuration 
A. Illustrative diagrams 

1. the minimum configuration as well as the optional 
hardware available for a 20 00E is shown in Figure 1. 

2. Figure 2 shows a system block diagram of the E and 
its various options. 

IV. System Commands 

A. Operator commands 

1. A cumulative operator command chart for the 2000A, B, 
C, and E is shown in Figure 3. 

a. ANNOUNCE - in 2000 C and E but not A or B. 

b. DIRECTORY - this command is similiar to the 
DIRECTORY command on existing TSB systems ex- 
cept that the disc subchannel number is an in- 
put parameter. The operator has the option of 
having a specific disc subchannel's DIRECTORY 
ojr all disc DIRECTORYs> for a particular idcode 

listed at the system console. 
UP 

c. DISC - DN, 1-3 serves same function as the DISC 

command on other time-share systems. On the E, 
this command allows the operator to interchange 
user disc cartridges on a disc drive by declaring 
the DISC - DN, replacing the cartridge, and then 
delcaring DISC - UP. 

d. MOVE - enables the operator to transfer user 
files from one disc subchannel to another. 

e. PORT - is a new command which outputs to the 
system console the stop bit and baud rate con- 
figuration for each port. This allows 
determination of the operating speeds of each 
port. 

f . SPEED - informs system of baud rate and no. of 
stop bits for each or all ports. 
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g. there is a number of commands which are not 

used on the 2000E. Some of these are commands 
which are relevant only to systems having a 
drum or commands which were replaced by new 
ones, e.g. SPEED for FAST and SLOW. There are, 
however, some which were eliminated altogether, 
i.e. MLOCK, MUNLOCK_ HIBERNATE, and STATUS. 
The DUMP, LOAD, AND COPY commands are part of 
the utility program in the E. 

B. User Commands 

1. Figure 4 shows a list of user commands for the A, B, C and 
E systems. 

a. DISC - a new command which lists the no. of sec- 
tors used and the total no. allocated to a user 
at his console. 

b. CSAVE, GROUP - nonexistent on the E. 

c. MESSAGE - in C and E, but not A or B. 

d. XPUNCH - in C and E, but not A or B. 

C. Utility Commands 

1. Figure 5 shows the utility commands (issued by the system 
operator) 

a. LOAD - loads the contents of a mag tape onto 
disc(s) . 

b. COPY - copies the contents of one disc subchannel 
to another disc subchannel. 

c. SLOAD - selectively loads a file from mag tape 
to a specified disc subchannel. If a file value 
is not input, the contents of the first file is 
transferred to the disc subchannel. 

d. SDUMP - selectively dumps an entire disc sub- 
channel contents to a specified file on mag 
tape. If no file is input, it is dumped to the 
first file on tape. 

e. FORMAT - formats a user disc subchannel other than 

0. Builds the ADT and DIRECTORY table which 
resides on the disc. 

f. PACK - eliminates unused spaces on a disc created 
by use of the KILL command. 



V. User/System Limitations 

A. Files 

1. the maximum no. of files is 4 per program. (16 on 
2000 B, C 8 on A) . 

2. there is 48 records maximum/ f ile, each record being 
128 words in length. The record size can not be 
specified by the OPEN command as in the 2000C. 

(2000A, B = 64 words/record, 2000C = 64-256 words/record; 
2000A, B 90 or 128 max. # records/file, 2000C depends 
on system peripherals) . 

3. each file listed in a FILES statement utilizes 128 
words of the user area. (2000A, B = 64 words, 2000C 
as many words as there are words in each logical re- 
cord of the file) . 

4. no ASSIGN statement. This can be gotten around by 
using the CHAIN statement. 

B. Programs can not be saved in a semi-compiled form. This 
is unfortunate since this speeds up the chaining process. 

C. Tracks can not be locked and unlocked ±>y sys tern commands . 

D. Syntax - Figure 6 

1. no ASSIGN statement 

2. no ENTER statement 

3. no PRINT USING statement 

4. no MAT PRINT USING statement 

E. No line printer capabilities 

F. User area = 4,180 words (2000A, B = 5,120 words, 2000C = 
10,0 00 words) . 

G. Program conversion from other time-share systems to the 2000E 
1. Considerations 

a. program size 

b. no formatted output 



c. no ENTER statement 

d. no ASSIGN statement 

e. no line printer 

f. file handling 

1. FILES statement 

2. number of records per file 

3. size of records 

VI. System Software Overview 
A. System routines 

1. Figure 7 shows a simplified overview of the 2000E system 
software modules. 

a. scheduler - executive module 

1 . schedules/initiates/suspends/terminates 
tasks 

2. entered every 100 milliseconds by TBG 

3. handles service requests from other modules 

4. optimizes allocation of CPU time 

b. interpreter 

1. syntax checking/program execution 

2. re-enterable processor 

3. calls scheduler upon completion of task 

c. swapper 

1. swap users in and out of core 

2. swap library programs into core 

d. multiplexer routines 

1. multiplexes input/output from/ to the 16 
user teletypes 

2. communicate with scheduler via MPCOM 

3. uses TTY tables and buffers f«r 1/0 
communications with each port 

e. 1/0 drivers 

1. disc driver 

2. console TTY driver 

3. mag tape driver 

f. power fail 

1. calls other modules to reinstate status 
of system 



2. Origin of system routines 

a. scheduler - 2000A 

b. multiplexer routines - 2000C hi-speed 

c. library subroutines 

1. XPUNCH, RND, CHAIN - 2000C 

2. HELLO - new 

3. remainder - 2000B 

d. disc driver - new 

e. utility program - new 

f. loader - 2000A 

g. remainder - mostly 20 00B 

3. Overlays 

a. library 

1. HELLO, OPEN, SLEEP, KILLID 

2. PURGE, DISC, SAVE, MOVE 

b. important to know which overlay was in 
core when system crashes 

4. Figure 8 shows a system core map 

B. System Tables 

1. DIREC and EQUIPMENT tables are shown in Figure 9 

a. DIREC table - same format as other time-share 
systems differing only in length. However 
the disc addresses are addresses pertaining 
to the system and user discs. This is be- 
cause a DIRECTORY table exists on every disc 
subchannel in the system. 

b. EQUIPMENT table - resembles the 2000A EQUIPMENT 
table with slight variations. IDTTA points to 
the location which contains the 4 disc addresses 
of the ID tracks. IDTRL points to the loc- 
ation which contains the track lengths of the 

4 ID tracks. 

2. ID and AD tables are shown in Figure 10 

a. IDT - 2000B format, uses 4 tracks on system 
disc 

b. ADT - 2000B format, exists on all disc sub- 
channels to allow the interchanging of user 



discs in the system. Requires 1 track on 
each disc subchannel 

3. FUSS table and COMTABLE are illustrated in Figure 11 

a. FUSS - is different from previous FUSS 
tables in that each entry for a file con- 
tains 2 words, 1 word for the disc address 
of a file and the other word for the length 
of the file in sectors. 12 8 words in length, 
resides on system disc. 

b. COMTABLE - 2000B format, 66 words in length, 
core resident. 

4. LOGGR and the DIRECTORY table are shown in Figure 12 

a. LOGGR - 2000B format, 32 words long, core 
resident 

b. DIRECTORY - 2000B format, requires 2 tracks 
on each disc subchannel to permit the inter- 
changing of user disc cartridges. 

5. TTY table - Figure 13 

a. TTY table - new format 29 words per table, 
resembles 2000A TTY tables. 

b . new words 

1. ?TNUM - port number 

2. ?DCNT - CR/LF delay counter 

3. ?CDLY - CR delay 

4. ?LDLY - LF delay 

5. ?RPRM - receive channel parameters 

6. ?SPRM - send channel parameters 

7. ?PPRM - phone parameter 

C. Mag Tape Formats 

A. SLEEP tape format - Figure 14 

1. system disc resident library and tables are 
dumped to mag tape first and terminated with 
an EOF. 

2. each user disc subchannel (that is up) is written 
out to mag tape and seperated by an EOF marker. 

3. the system routines, in segments, are dumped last 



to mag tape as well as the system library overlay 
routines . 

B. Selective dump mag tape format (utility routines) - 

Figure 14-1. 

1. a disc subchannel is dumped out by the SDUMP 

command as 1 file on mag tape. This includes the 

ADT, DIRECTORY table, user library, and other data 

stored on that disc subchannel. It is terminated 
with an EOF marker. 

VII. Disc Organization 

A. Replaceable disc cartridge 

1. Figure 15 - 17 

a. user file only 

2. User disc track assignments - Figure 18 

B. Non-replaceable disc cartridge 

1. Figure 15 - 16 

a. drive - system disc 

b. drive 1 - user files (if 7900A disc) 

2. Track assignments for the system disc - Figure 19 

C. Disc address format 

1. Figure 20 - format of disc addresses as stored in 
system tables 

VIII. Emergency Resucitation 
A. Disc errors 

1. Non-replaceable disc - subchannel 

a. recovery procedures depend upon system hardware 
configuration and the status of each disc sub- 
channel at the time of the disc error, i.e., 
whether disc was UP or DN. In any case, this is 
a very catastrophic situation. 

b. tracks 0-2, replace fixed disc 

c. tracks 3 - 202, regenerate system. The loader 
will lock out the bad tracks on the fixed 
nartridap bv nnt- pntprina them in its ADT. 



2. Replaceable disc - subchannels 1 and 3. Non- 
replaceable disc - subchannel 2. 

a. perform emergency resucitation (VIII. D. 2.) 

b. bring system up from the SLEEP disc or tape 

c. get a DIRECTORY for the bad disc subchannel 

d. use the MOVE command to move all files and 
programs to another user disc or the system 
disc. 

e. tracks 0-2, replace disc 

f. tracks 3 - 202, reformat disc. 

B. Disc error HALTS 

1. During system operations 

a. display register = 102010 

b. A reg = disc addr, B reg = core addr 

c. system tries 10 times before HALT 

d. if the "RUN" button is pressed, the disc 
operation will be tried an additional 10 times 

2. During utility program operations 

a. display register = 102011 

b. A reg = disc addr, B reg = core addr .- 

c. system tries 10 times before HALT 

d. reload the utility program and re-issue the 
command. 

C. Power fail 

1. During system operation 

a. all users come up in syntax mode 

b. ports come up as configured prior to power 
failure 

2. During SLEEP operation 

a. if DONE message was output to console, no 
operator action is required. 

b. if a disc SLEEP was in process, the disc 
transfer is terminated and the operator must 
re-enter the SLEEP command. 

3. During mag tape SLEEP operation 

a. if the first write operation had taken place: 
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1. load the bootstrap loader 

2. bring the system up from system disc 
subchannel 0. 

3. SLEEP the system 

b. if no write operation had been started: 

1. perform emergency recovery procedures 

2. SLEEP the system 
D. System crashes 

1. Pre-recovery checks 

a. assure table entries are in proper order 

1. DIREC 

2. EQUIPMENT 

b. attempt to determine cause of crash 

1. core/disc dump utility program 

2. some important core locations are shown 
in Figure 21 

2. Recovery procedures 

a. if system table entries are in order and core 
locations appear to be undisturbed, SLEEP the 
system after using one of the following options: 

*1. POWER FAIL restart routine 

2. Start at TSB point 32173. 

8 

b. if system table entries are in order but other 
core locations thought to be destroyed: 

1. load TSB loader 

2. start at the emergency resucitation point - 
location 3000 R . 

3. load system tapes 

4. SLEEP the system. 

c. if system table entries are not in order and 

it is felt the system can not be saved (slept) , 
bring system up using most recent SLEEP tape(s) 
or disc cartridge. 



*if the POWER FAIL option is selected and does not run to completion, 
i.e., system "READY" message is not output to console TTY , check to 
see if it is hung up trying to complete a disc transfer. If this is 
the case, halt the computer and use option 2. 



11 



IX. Benchmarks 

A. Compute bound programs 

1. BTEST, FPTS9 - Figure 22 

B. Results - Figure 23 

X. References 

A. 2000E I/O configuration (attached) 

B. HALTS (attached) 

C. Selective core/disc dump utility listings (attached) 

D. Flow charts (attached) 

E . IMS * s 

1. 2000A 

2. 2000B 

3. 2000C Hi-speed 

F. 2000E ERS 
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XI . Lab 

A. Formatting of disc cartridges 

B. System generation/update 

C. Operator commands 

D. Hands on 

E. SLEEP procedures 

F. Utility commands 



2000K BASIC SYSTEM HARDWARE 

HP 2100 Digital Computer with the following: 

16K core Memory 

Floating Point Arithmetic Hardware 

Direct Memory Access 

Time Base Generator 

Telephone Auto-Disconnect for 16 lines 
7900 Cartridge Disc Drive (4.8 megabyte) and Interface 
High Speed Tape Reader and Interface 
System Teletype (modified ASR-33) and Interface 
Hardware Multiplexer (16 terminals) 
Single Bay Cabinet with door (115V, 60Hz power) 
System Integration Software and Accessories 

2000E SYSTEM OPTIONS 

Additional Cartridge Disc Storage - 1 Disc Drive (4.8 megabytes) 
9-Channel Magnetic Tape (30,000 char/sec). Interface and Cabinet 
System Operation with 230V, 50Hz 

Heavy Duty System Teleprinter (modified ASR-35) and Interface 
Heavy Duty System Teleprinter (modified ASR-35) and Interface for 

230V, 50Hz operation 
Two Bay System Cabinet x with door 

2000E OPTIONAL PERIPHERAL EQUIPMENT 

Teleprinter Terminal - HP 2749A Teleprinter (modified teletype 
ASR-33 with X-ON/X-OFF reader control options) 

Keyboard Display Terminal - HP 2600A 

General Electric "Terminet 300" 

"Memorex 1240" communications terminal with 
10/15/30 transfer rates 

"Execuport 300" Transceiver Terminal 

ASR-37 with paper tape reader/punch 

Univac DCT 500 terminal (type 8541-99 standard version) 

Must be equipped with ASCII printwheel and ASCII keytop 



Figure 1 



OPERATOR COMMANDS 



ANNOUNCE 



BESTOW C 

CHANGE ABC 

COPY C 

DESECRATE C 



DIRECTORY A 13 C E_ 

DISC A B C E_ 

DRUM C 

DUMP C 

FAST B C 

HIBERNATE C 

KILLID A B C E 

LOAD C 

LOCK ABC 

MAGTAPE A B C 

MLOCK C 

MOVE E' 

MUNLOCK C 

NEWID A B C E 

PHONES A B C E 

PORT E 

PROTECT A B C E 

PURGE A B C E 

REPORT A B C E 

RESET A B C E 

ROSTER A B C E 

SANCTIFY C 

SDIRECTORY C 

SLEEP A B C E 

SLOW B C 

SPEED T 

STATUS A B C 

UNLOCK ABC 

UNPROTECT A B C E 



Figure 3 



USER COMMANDS 



APPEND 
BREAK 
BYE 
CATALOG 



HELLO 

KEY 

KILL 

LENGTH 

LIBRARY 

LIST 



MESSAGE 



NAME 

OPEN 

PUNCH 

RENUMBER 

RUN 

SAVE 

SCRATCH 

TAPE 

TIME 



A 
A 
A 
A 



A 
A 
A 

A 
A 
A 



A 
A 
A 
A 
A 
A 
A 
A 
A 



B 
B 
B 
B 



B 
B 
B 
B 
B 



B 
B 
B 
B 
B 
B 
B 
B 
B 



C 
C 
C 

c 



C 
C 

c 
c 
c 
c 



c 
c 
c 
c 
c 
c 
c 
c 
c 



E 
E 

E 
E 



E 
E 
E 

E 
E 
E 



E 
E 
E 
E 
E 
E 
E 
E 
E 



CSAVE 




B 


C 




DELETE 


A 


B 


C 


E 


. DISC 








E 


ECHO 
GET 


A 
A 


B 
B 


C 
C 


E 
E 


GROUP 






C 


1 



XPUNCH 



Figure 4 



2000E UTILITY PROGRAM COMMANDS 



COMMAND 



FUNCTION 



Load system from mag tape 
Copies disc to disc 



LOAD, select code 

COPY, subchannel#, subchannel* 

SLOAD, subchannel!, select code, (file) Selective disc load from mag tape 

SDUMP, subchannel#, select code, (file) Selective disc dump to mag tape 
FORMAT, subchannel* 



PACK, subchannel* 



Formats a user disc, builds the AI 
and DIRECTORY on the disc 

Packs a user disc 



(file) - is an optional value representing a specific file position on 

the mag tape. A file is the contents of one disc as dumped out 
either by a mag tape sleep or by a selective dump. 



Figure 5 



SYNTAX 



ASSIGN 



CHAIN 

COMMON 

DATA 

DIM 

END 

ENTER 



C 
C 
C 
C 
C 



E 
E 
E 
E 
E 



FOR 
GO TO 
GO TO 
GOSUB 
GOSUB 
IF . . 



. . OF 

. OF 
THEN 



C 
C 
C 
C 
C 
C 



E 
E 
E 
E 
E 
E 



IMAGE 



INPUT 
LET 

MAT INPUT 
MAT PRINT 



C 
C 
C 
C 



E 
E 
E 
E 



MAT PRINT USING 



MAT READ 

NEXT 

PRINT 



C 
C 
C 



E 
E 
E 



PRINT USING 

READ 

REM 

RESTORE 

RETURN 

STOP 



C 

c 
c 
c 
c 



E 
E 
E 
E 
E 



Figure 6 
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SYSTEM USAGE 



USER SUBRTNE 
RETURN ADDR 
SAVE AREA 

GENERAL USE 
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USER AREA 



TTY BUFFERS 



SYNTAX 
PROCESSING 



COMPILE 
DECOMPILE 



EXECUTE 
PROGRAM 



UTILITY 
ROUTINES 



ERROR 
ROUTINES 



LIST 
PROGRAM 



MATRIX 
ROUTINES 



OUTPUT 
ROUTINES 



LIBRARY 
FUNCTIONS 



31534 


DISC DRIVER 


32000 


PRINT FUNCTION 
NAME 


32065 


POWER FAIL 
ROUTINE 


32173 


PHONES 
LOGIC 


32270 


START OF TSB 


32501 


SYSTEM 
CONSOLE DRIVER 
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LOADER 
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DIREC 
TABLE 



EQUIPMENT 
TABLE 



•# OF WORDS IN DIRECTORY 



1-5 



1st 5 WORDS OF DIRECTORY 




subchannel - - disc address 
of DIRECTORY track 1 



56 WORDS TOTAL 
2000B FORMAT 

CORE RESIDENT 
2-7 WORD ENTRIES 
FOR EACH DISC 
SUBCHANNEL IN 
SYSTEM 




56 
57 

58 

62 

63 
67 

68 

69 
70 

71 

72 



table order 



subchannel 
subchannel 



DIRECTORY trk 1 
DIRECTORY trk 2 



subchannel 3 
subchannel 3 



DIRECTORY trk 1 
DIRECTORY trk 2 



DIREC TABLE 



IDLEN - ID TABLE LENGTH 



IDTTA - LOCATION OF DISC 
ADDR. FOR ID TRACKS 



DISC ADDRESSES OF ID 
TRACKS 



ICTRL. - /LOCATION OF TRACK 
LENGTHS FOR ID TRKS 



ID TRACK LENGTHS 
gyg 

ADLOC - DISC ADDRESS 
OF ADT 



ADLEN - -# OF WORDS IN 
ADT 



? TBL - DISC DESCRIPTIONS 



NPORT - -# OF SWAP 
TRACKS RESERVED 



PHR - #SECS FOR USER 
TO LOG ON 



*^ 



72 WORDS 

2000A WITH MODS 

CORE RESIDENT 



DIREC AND EQUIPMENT TABLES 
Fi our* 9 



ID TABLE 




1-3 
4 
S 
6 
7 



USER 


ID 


PASSWORD 


TIME 


ALLOWED 


TIME 


USED 


DISC 


ALLOWED 


DISC 


USED 








4 TRACKS 
DISC RESIDENT 
SAME AS 2000B 



ADT 






DISC ADDRESS 


y\ 


1 


LENGTH OF AREA IN SECTORS 


y\ 


/\ TRACK 








SAME AS 2000B 








RESIDES ON EACH 








DISC SUBCHANNEL 








IJ 


* SYSTEM 



IB AND AD TABLES 



Figure 10 








DISC ADDRESS OF FILE 


128 WORDS TOTAL 
/\/ 4 FILES/PROGRAM 




1 


LENGTH OF FILE IN 
SECTORS 


FUSS TABLE 






* 2 WORDS/FILE 










NEW FORMAT 










DISC RESIDENT 



COMTABLE 



COM 


1 - EXECUTED BY 
SYSTEM 


COM 


2 - EXECUTED BY 
BASIC 


COM 


3 - USER COMMAND 
EXEC. BY DISC 
RESIDENT PROG 


COM 


4 - SYSTEM COMMAND 


COM 5 - STARTING ADDR 
OF COM 1, COM 2 


COM 


6 - DISC ADDR OF 
COM 3 AND COM 4 




SAME 2000B 

66 WORDS TOTAL 
CORE RESIDENT 



FUSS TABLE AND COMTABLE 



Figure 11 



LOGGR 



USER ID 



TIME/TERMINAL NO. 



CORE RESIDENT 
-32 WORDS TOTAL 
16 USERS 






1-3 

4 
5 
6 

7 


USER ID 






PROGRAM OR FILE 
NAME 


N N J\2 TRACKS TOTAL 


DIRECTORY 


START OF PROGRAM POINTER 


SAME AS 2000B 




DATE 


RESIDES ON EACH 




DISC ADDRESS 


DISC SUBCHANNEL 




- LENGTH IN WORDS 


IN SYSTEM 



LOGGR AND DIRECTORY 



Figure 12 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 


? TNUM - Port Number 




? CCNT - Char. Cntr 




? BPNT - Char. Loc. PTR 




? BSTR - Char. PTR in Buffer 




? BHED - PTS to Next Char. 




? BGIN - PTS to Beginning of Bufr 




? BEND - PTS to 1st Char, after Bufr 




? TSTA - Status Word 




? DCNT - CR/LF Delay CNTR 




? CDLY - CR Delay 




? LDLY - LF Delay 




? PHON - Time CNTR For Phones 




? RPRM - Receive Channel Panns 


TTY 
TABLE 


? SPRM - Send Channel Partus 




? PPRM - Phone Parameter 




? MASK - 2 For User N 




? DISC - Disc Address 




? PROG - Points To Last Core Word 




? ID - User ID 




? NAME - Program Name 




? Time - Starting Time 




? CLOC - User's Timeout Clock 




? RSTR - Restart Address 




? STAT - User's Status 




? LINK - PTS To Next Entry on Q 




? PLEV - Priority Level 




CORE RESIDENT 
29 WORDS/ PORT 
NEW FORMAT 
RESEMBLES 2000A 



TTY T4Rf,F 



110 WORDS 



203 WORDS 



2 TRACKS 



SYSTEM 
LABEL 



EQUIPMENT 
TABLE 



IDT 
TRACKS 
(1 TO 4) 



TRACK 

LENGTH 

TABLE 



A000/ 
USER 
LIBRARY 
TRACKS 



DIRECTORY 
TRACKS 



EOF 




1 PER 
USER __ i 
DISC 
SUB- 
CHANNEL 



USER 
DISC 
LABEL 



i wren i wn«n 



ADT 
LENGTH 



DIRECTORY 

TABLE 

LENGTH 



1 WARD 



DIRECTORY 

TABLE 

LENGTH 



ADT 



203 WORDS 



TRACK 

LENGTH 

TABLE 



USER 

LIBRARY 

TRACKS 



2 TRACKS 



DIRECTORY 
TRACKS 



EOF 



THAT IS UP 

AT TIME OF SLEEP 



TRACK 1 



TRACK 2 



4- 



WORDS 



J? z '■ 






SEGMENT 
TABLE 



5 ySf ftf ^&//Si 



OF 3Y3f£M 
ROUTINES - 



3EGMENT -3- 
OF SY3TEM 
ROUTINE S 






OF SYSTEM 







y/3<es>'?'y 



EOF 



1 RECORD EACH 

NoIfeI £AGH TRACK IS WRITTEN OUT TO MAG TAPE AS 1 OR 2 RECORDS. IF THE TRACK LENGTH TABLE 
INDICATES A TRACK' IS OVER 2TO72 r W0RDS LONG, IT IS POT INTO 2 RECORDS. THE FIRST 
RECORD IS 3072 WORDS, THE REHAJNDER ON^IHK SECOND RECORD. 



\P 



t-'O <i it '<-£> 7)tf. 



d> 



IS NOT AN EOR MARKER 






SLEEP TAPE FORMAT 



1 WORD 



1, WQRD 



1 WQRP 



203 WORDS 



2 TRACKS 



USER 
DISC 
LABEL 



ADT 
LENGTH 



DIRECTORY 

TABLE 

LENGTH 



DIRECTORY 

TABLE 

LENGTH 



ADT 



TRACK 

LENGTH 

TABLE 



USER 

LIBRARY 

TRACKS 



DIRECTORY 
TRACKS 



EOF 
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a 
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i 



NOTE: 




1 FILE 



USER DISCS ONLY 



EACH TRACK IS WRITTEN OUT TO MAG TAPE AS 1 OR 2 RECORDS. IF THE TRACK 
LENGTH TABLE INDICATES A TRACK IS OVER 3072 WORDS LONG, IT IS PUT INTO 
2 RECORDS. THE FIRST RECORD IS 3072 WORDS t TH| REMAINDER ON THE SECOND 
RECORD. ~. -".*"*" 



_**tr. 



IS NOT AN EOR MARKER 



SELECTIVE DUMP MAG TAPE FORMAT (1 FILE) 



DRIVE 





USER FILE 




USER FILE 




USER FILE 




















REPLACEABLE DISC 




SYSTEM LOADER 


SYSTEM ROUTINES 


SYSTEM LIBRARY 


USER SWAP AREA 








IDT 






ADT 




DIRECTORY TABLE 




AOOO LIBRARY 




USER FILES 



Subchannel 1 



Subchannel 



NON-REPLACEABLE DISC 



7900A DISC ORGANIZATION DRIVE 
Figure 15 



DRIVE 





USER FILE 




USER FILE 




USER FILE 






, . 


r~ 




USER FILE 








REPLACEABLE DISC 




USER FILE 


USER FILE 


USER FILE 






\. 




USER 


FILE 







Subchannel 3 



Subchannel 2 



NON -REPLACEABLE D I SC 



7900A DISC ORGANIZATION DRIVE 1 
Figure 16 



DRIVE 



USER FILES 



USER FILES 



Subchannel 3 



REPLACEABLE DISC CARTRIDGE 



7901 DISC ORGANIZATION DRIVE 1 



Figure 17 
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SUBCHANNELS 1, 2, AND 3 



TRACK 



SECTOR 



ASSIGNMENT 









1 
2 
3 - 202 





1 



2 - .J&f£*f 
0-47 
0-47 
0-47 



DISC LABEL 

ADT LENGTH 

DIRECTORY TABLE, 
ON TRACK 1, LENGTH 

DIRECTORY TABLE, 
ON TRACK 2, LENGTH 

ADT 

DIRECTORY TABLE 

DIRECTORY TABLE 

USER FILES 



USER DISC TRACK ASSIGNMENTS 
7900A AND 7901 DISC DRIVES 



Figure 18 



\ 



SUBCHANNEL 



TRACK NO. 




■flfrWtta ^ - s-' — 



5 fS/v/ts 



^ U ^^^LiL^L 



ASSIGNMENT 

SYSTEM LABEL (sector 0) 
SYSTEM LOADER 
SYSTEM ROUTINES 
SYSTEM LIBRARY ROUTINES 
^ USER SWAP AREA 

> IDT 
s- ADT 

' DIRECTORY TABLE 

> A000 LIBRARY/USER FILES 



7900 FIXED DISC CARTRIDGE (SYSTEM) 
TRACK ASSIGNMENTS 



Figure 19 



DRIVE 
NO. 

0-1 


TRACK NO. 
- 202 


FIXED 
»1 

REMOV 
-0 


SECTOR NO. 
0-47 



15 



14 



13 



12 



11 



10 



HEAD 0,2 - SECTORS 0-23 
HEAD 1,3 - SECTORS 24 - 47 



o 

e 
u 

& 



DISC ADDRESS FORMAT 



2000E 



SYSTEM CRASH CORE LOCATIONS 



LOC 
1325 
1326 
1327 
1330 
264 

260 

261 

262 

65 

355 

356 

307 

31335 

31417 

306 

273 

32000 

1625 

34164 

20 

43 

44 

100 

32270 



VARIABLE 

AREG 
BREG 
EREG 
PREG 
MPCOM 

MAIN 

LIB 

ENDSK 

WORD 

MLINK 

MLINK+1 

DRIVE 

LDISC 

DINT 

FAIL 

DADDR 

POW 

.LNUM 

CLKIN 

LTEMP 

MOVES 

MOVED 

DIREC 

?TT35 



MEANING 

A-REGISTER AT LAST PROGRAM SUSPEND 

B-REGISTER AT LAST PROGRAM SUSPEND 

E-REGISTER AT LAST PROGRAM SUSPEND 

P-REGISTER AT LAST PROGRAM SUSPEND 

BITS INDICATE TERMINALS ATTEMPTING TO COMMUNICATE 
WITH THE SCHEDULER 

ADDRESS OF TTY TABLE FOR PORT WHOSE SWAP TRACK IS 
CURRENTLY IN CORE (O-NO SWAP TRACK) 

ADDRESS OF A WORD CONTAINING THE DISC ADDRESS OF THE 
LIBRARY PROGRAM OR OVERLAY CURRENTLY LOADED IN CORE AT 
ADDRESS 37300 

O-NO DISC TRANSFER , 1-DISC TRANSFER INITIATED 

WORD COUNT (-WORDS) OF LAST DISC TRANSFER 

BASIC QUEUE ENTRY 

POINTS TO HEAD OF QUEUE , IF-MLINK NOBODY IN QUEUE 

DRIVE f , OR 1 

RETURN ADDRESS FROM LAST CALLER TO DISC DRIVER 

INTERRUPT RETURN ADDRESS FOR DISC DRIVER 

DISC RETURN COUNTER (-10 to 0) 

DISC ADDRESS OF LAST DISC TRANSFER 

POWER FAIL INTERRUPT RESTART ADDRESS 

PROGRAM STATEMENT NUMBER UNDER EXECUTION 

CLOCK INTERRUPT RETURN ADDRESS 

USED BY SYSTEM LIBRARY ROUTINES. 

SOURCE ADDRESS FROM MOVEW ROUTINE 

DESTINATION ADDRESS FOR MOVEW 

DIREC TABLE AND START OF EQUIPMENT TABLE 

LAST CALLER TO SYSTEM CONSOLE DRIVER 



Figure 21 



^tfs: 



inn 


P?ftn I. 


1 in 


IF L<0 THF'O QQv 


120 


data ^nnno. 


130 


DATA -1 


140 


ppiajt "starts"; fimc n) 


iso 


x=o 


lfsn 


X=X+1 


170 


IF X<L THFM 1 r-,0 


i p, n 


primt m x= m ;a j ,, STnP="; 


I9n 


nom inn 


999 


EMI") 



t I .v c n ) 



FPTS9 



in 


data sonn 


20 


RF.An L 


30 


k=o 


/»n 


print ,,c ;tart=";timco) 


ro 


1=0 


ftn 


.1=50 


70 


i=i+j+ion*c i-j)tp 


an 


I=I+I+I+I+I+I+I+I+I+I+I+I 


9n 


.T=I-J+I-J+I-J+I-J 


100 


I=Jt ( -P)+I*I*I 


1 10 


K=K+1 


IPO 


IF K<L THFN Sn 


130 


PRINT "STnP=";TIMcn5 


140 


F.N J") 



Figure 2: 



PROGRAM NAME 



System 




BTEST 






FPTS9 




#Act 


ive Ports 


C 


2 


min. 


2.8 sees 


1 


min. 


58.2 


sees 
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F 


1 


min. 


26.5 sees 


1 


min. 


16.4 


sees 




1 


C 


2 


min. 


2.5 sees 


1 


min. 


58.2 


sees 




1 


*E 


1 


min. 


23.6 sees 


1 


min. 


15.4 


sees 




1 


**E 


2 


min. 


56.8 sees 












2 



*the difference between 2000E and 2000F can be attributed primarily to the 
following factors: 

1. Scheduler idle loop is shorter 

2. No communications processor on the 2000E 

'with 2 ports active it would be expected that the run time be twice as 
long; anytime over this amount taken to be the swap time. 

expected run time: 2 X (1 min. 23.6 sees) = 2 min. 47.2 sees 
total swap time: 2 min. 56.8 sees - 2 min. 47.2 sees = 9.6 sees 

expected no. of swaps: 1/sec run time or ft? 83 swaps 
swap time: 9.6 sees -? 83 = 157 milliseconds 
average seek time: 55 milliseconds 



Figure 23 
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2000E I/O CONFIGURATION 
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10 TBG 

11-12 7900A DISC INTERFACE 

13 OPERATOR'S CONSOLE 

14 PAPER TAPE READER 
15-16 MULTIPLEXER DATA BOARDS 
17 MULTIPLEXER CONTROL BOARD 

CONNECT SLOT ON MUX BOARD 

MULTIPLEXER DATA BOARD - J18 

CONTROL CARD CONN. Pi - J16 

CONTROL CARD CONN. P2 - J20 



HALTS 



DISPLAY REGISTER REASON 

102004 Power failure 

102005 Parity error 

102010 Disc error - system routines 

102011 Disc error - utility routines 

After "INSERT CARTRIDGE..." 
msg during SLEEP operation. 
Checksum error from BBL. 

102033 After bootstrap^ operation 

of transferring system from 
subchannel 1 to subchannel 0. 

102077 END OF TAPE during system 

generation. 

Successful completion of a 
SLEEP . 
Successful load when using BBL. 

102066 Checksum error during system 

generation 

102015 Sense switch 15 up during system 

generation 

102001 Follows an error message being 

output to system console - 
utility routines 

102055 Invalid address encountered 

during system generation 
Illegal address when using BBL. 
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ASMl-3, A'6,l. 


INIT1 


01»(800 




GET 


010004 




GOP 


01001? 




LOOP 


010027 




PRNT 


010040 
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010047 
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010063 




TTYCW 


010072 




REG 


010073 




wc 


010074 




M5 


0100/5 




CNT 


010076 




MSK 


013077 




.60B 


01-4100 




M9 


010101 




PR 


010102 




t.F 
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L I'NE 


01010^ 




RL 


0101 0S 




FILL 


01010 6 




TTY35 


00001 3 




INIT2 


01 10 00 




STAT 
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STCMD 
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DC 


00001 1 




CC 


•/0001? 




POSN 


01 1071 




CWl 


y 1 1072 




Cw2 


110 7 3 




rw3 


011074 




POCMD 


0J 1075 




LOCN 


1 1076 




. 128 


1 10 7 7 




ORI VF 
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0001 
0002*** 

0003*** 

0004***-::- 
0005*** 

0007*** 
0008*** 
0009*** 

0010*** 
001 \<HHi 

001?*** 
0013*** 
00 14 *«# 

0015*** 
0016*** 
0017*** 
0018*** 
0019*** 
0020*** 

0021*** 
0022*** 
0023*** 
0024.*** 

0025*** 
0026*** 
0027*** 
0028*** 
0029**** 

0030*** 

0031*** 

0032*** 

0033*** 

0034*** 

0035*** 

0036*** 

0037*** 

0038*** 

0039*** 

0040 *■»*.:!• 

004 1 «■■»« 

0042***-ii- 

0043*** 

0044*a» 

0045 Id 

0046 li* 

0047 1-7 

0048 H 

0049 10 
0050*** 
0051**** 
0052*** 
0053***-a 
0054*^* 

0055 1/ 

0056 1« 



ASMH,A,R»L»T 
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THIS PROO^A^ SELECTIVELY DUMPS TO THE SYS. CONSOLE COPE 
OR 128 WORD SFCTOPS FROM THE MOVING HFAD OISC. LOAD USING 
TMF ri«L (SA=37700) 

C(PF DUMP : 



1. SET P= 10000 

2. PUSH BOTH PRFSFTS AND RUN 

3. SET A= START AOOP. 

4. SET H= NO. OF WO^DS TO HF DUMPED 
b. PUSH RUN 

b. HALT 7 7R ON COMPLETION 

TO *U!\i ANOTHER CASE - REPEAT STEPS 3-5 



DISC StCTOR DUMP 



1. SET P= 11000 

2. PUSH ROTH PRFSETS AMD RUN 

3. SET A = CY! . # PITS 0-7, DRIVE # IN HIT IS 

4. SET H = HFAD NO. BITS 3-9, SECTOR PITS 0-4 

5. PUSH RUN 

6. HALT 668 ON COMPLETION 

TO RUN ANOTHER CASE - REPEAT STEPS 3-5 

SETTING S REGISTER BIT lb = 1 CAUSES OUTPUT TO TERMINATE 
AT THF END OF THE LINE IN PROCESS. 
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CORE DUMP ENTRY PT = 10000 



000 

000 0000014 

001 1/2077 

002 016004 

003 026000 



ORG 10000B 
INIT1 NOP 

HLT 778 

JSB GET 

JMP INIT1 



ENTRY 

RELOAD A&R-REGISTFRS 

GO TO DUMP 

LOOP FOR ANOTHER DUMP 



GET - IS USED TO PUT CORE CONTENTS ONTO THE SYSTEM CONSOLE - 



00a- 000000 GET 
005 072073 



NOP 
STA BEG 



ENTRY 

SAVE BEGlNlNG CORE LOCATION 



PAGE 0'03 «0l 



0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083* 

0084* 

0085* 

0086* 

0087* 

0088* 

0089 

090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

103 

0104 

0105 

0106 

0107 

0108* 

^109* 

0110* 

1 1 1 * 

0112* 



P006 007004 CMS. 

^007 076074 STB 

0010 062072 LDA 

■"011 102613 OTA 

■7.012 102501 GOP LI A 

0013 002020 S5A 

^014 126004 JMP 

001b 066101 LD3 

P016 076104 STB 

■-'■017 062102 LDA 

'.020 4lo06 3 JSB 

:*0 21 62103 LDA 

',022 016063 JSB 

0023 062106 LDA 

.1024 016063 JSB 

v.02B 0660 73 LOB 

1026 16040 JSB 

"02 7 0^hl0<+ LOOP ISZ 

:*0 30 026032 JMP 

0031 026012 JMP 

?032 166073 LOB 

>03J 210 04 JSH 

•'.0 34 036073 ISZ 

•-'035 036074 ISZ 

.7036 02602 7 JMP 

■"0 37 1?6004 JMP 



INB 

WC 

TTYCW 

TTY3d 

1 



GET. I 

M9 
LINE 

CP 

T 

LF 

T 

FILL 

T 

BEG 

PPNl 

LINE 

* + 2 

GOP 

BEG 

PRNl 

REG 

wC 

LOOP 

GET, 1 



I 



NEGATE WOR 

AND SA 

OUTPUT PRT 

WORD T 

CHECK BIT 

REGIST 

YE 

NO 

INITIALIZE 

OUTPUT 

A CARRTA 
A LINF 
AND 
FT 

PRINT THE 

LOCATION 

INCREMENT 

MORE 

NO 

YE 

PPIMT NEXT 

INCREMENT 

IS THIS A 

NO* MO 

YES. P 



D COUNT 

VE 

NT CONTROL 

SYSTEM CONSOLE 

15 OF SWITCH 

ER--IS IT SET? 

S. RETURN 

COLUMN COUNT 



LL 



Gfc -RE I UKi\l » 

-FEED, 

A 

LLFR CHARACTER 

TO THE CONSOLE 

COPE 

IN FIRST COLUMN 
COLUMN COUMTEP 
N THIS LINE? 
. START NEW LIME 
S 

CORE-LMCATTOr.i C'^'TFr T5 
COPE ADDPESS 

RE WORDS TO GO 
ETURM 
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PRMT - IS A S 
AS AN OCTAL N 
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UBROUTINF THAT PRINTS CONTFMTS OF TrtF B -'Efi. 

UMBEk'. 
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'040 000000 PRMT 
,',04 1 00 2400 

/042 006020 
".043 0020/>4 
r-044 16063 
?045 062075 

^046 072076 
■'047 005 700 p 
■■'rtS0 060-001 

'051 ■/ 5 3 

*052 012077 
■105 3 01606 3 
■'.054 036076 

■•,055 0^604 7 
■■'05t> 062105 

'0 5/ 016063 

.060 062105 
/061 016063 
■X062 126040 



NOP 
CLA 
SSH 
INA 
JSB T 
LDA MS 
STA CNT 
BLF 
LDA 1 
RWp 

AND MSK 
JSB T 
ISZ CNT 

JMP P 

LOA 3L 
JSB T 
LDA BL 
JSB T 
JMP PRNT, I 



ENTRY 

DECIDE WHETHER 
SIGN HIT 

IS ZERO OR ONE 
AND GO PRINT IT 

SET UP COUNTER FOP 5-DIGlTS 



GET NEXT NUMERAL AND 

PRINT IT 
MORE TO PR I NT V 
YES 
NO 
PRINT 

TWO 
BLANKS 
RETURN 
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HHt 



T - IS A SUHP 
REGISTER ONTO 



nUTTNE THAT PRINTS ONE CHAR SUPPLIED 
THE SYSTEM CONSOLE 



IN THE A 



•&fc#ttv-»-tt#«-»«,&«-tt#-&#-tf^ »««$•»«#•£#*# *tttttttt 



NOP 




ENTRY 


ADA 


.60B 


CONVERT Tn / 


OTA 


TTY35 


OUTPUT 


STC 


TTY35.C 


TO 


SFS 


TTY35 


SYSTEM 


JMP 


*-l 


CONSOI. 


JMP 


T.I 


RETURN 



PAG^ '/4 */ 1 

i 

0113*** 

0114 1 >063 v? V/!0 0/j T 

0115 1?064 442100 ADA .60B CONVERT Tn ASCII 

0116 I.v^d 17)2613 

0117 1 i06h 103/13 
3118 l-v/6/ 102313 

0119 1*070 ,426067 

0120 1/071 126063 
0121*** 

0122*** 

1 2 3 * * * * * * * * * * * * * * * * * * * * * * * 5) * * * * * * * * * * * * * * * * l?" * * * * * * * * * * * * * ********* * * * * * 

0124*** CONST ANTS .TEMPORARIES. EQUATES 

01 25***************************************** ***"*********************** 

0126*** 

0127*** 

0128 l">i0 72 13000/) TTYCW OCT 130000 SYSTEM CONSOLE CONTROL WORD 

0129 1*073 0000W0 BEG BSS 1 BEGINING CORE LOCATION 

0130 1*7)074 00000 w W'C BSS 1 NEGATIVE WORD COUNT 

0131 1^075 177/73 MS DEC -5 DIGITS PER WORD CONSTANT 

0132 13076 000000 CNT BSS 1 COUNTER FOR DIGITS PER WORD 

0133 1<*077 000007 MSK OCT 7 MASK FOP SINGLE OCTAL DIGIT 

0134 1?100 00006,/; .60B OCT 60 ASCII CONVERSION CONSTANT 

0135 1*101 17776? M9 DFC -9 CONSTANT FOR COLUMNS PER LINE 

0136 1-102 177732 CR OCT 177732 CARRIAGE-RETURN CHARACTER 

0137 1*103 177735 lF OCT 177735 LINE-FEED CHARACTER 

0138 1-10H 30000'/) LINE RSS 1 COUNTFR FOR COLUMNS PE^ LIME 

0139 17,105 17776/. hL OCT 177760 BLANK CHARACTER 

0140 l(/lf6 177720 FILL OCT 1777 20 FILLER CHARACTER 

0141 0<*013 TTY3-, FOU 1 3H SYSTEM CONSOLE SELECT CODE 
0142* 

0143*** 

0144*** 
0145*** 
0146*** 
0147 * * * 

1 4 8 * * * -::- * * * * * * * * -"- * ••■• * * * * * * ■»• * * * * * * * * * * * * * * * * * * •«- * * * * * * -«- * * * * * * * * * * * * * * * * •" * * •"■ 

0149*** DI^C SECTOR nijMP ENTRY PT = 11000 

0150**** "" * * * * * * * * * * * * * * * '■'• * * " :1, ****** * * * * * * * * * * * * * * ********** * * * * * * * * * -::■ * * * * 

0151*** 

0152*** 

0153 H0/./) 

0154 110 1/ vj I N I T '> 

0155 11001 002400 

0156 11002 07 3100 

0157 11003 102066 

0158 1 l 004 00C020 
159 110/5 0T/1/.0 

0160 1100O 10^611 OTa DC OUTPUT CY|_ it TO DISC CU 

0161 1100? 103711 

0162 11010 063071 

0163 11011 043100 ADA DRI\/K SETUO FOR PROPER D^IVE 

0164 li<M2 10 261? 

0165 1 i £} i H-16/1 2 

0166 n/14 10 3712 

0167 11015 102311 
0163 H016 027015 



OPU 


110 -r> h 




Ninp 




FNTRY 


CLA 




SETUP FOP DRIVE 


STA 


DRIVE 




HIT 


66E 


PFLOAD A&^ REGISTERS 


SSA 




IS THIS DRIVF tf 


is./ 


n p l \/ l 


YES 


OTa 


DC 


OUTPUT CY1_ p TO DISC 


STC 


DC.C 


AND SET CONTROL 


LDA 


POSN 


OUTPUT POSITION CMND 


ADA 


DRI \/K 


SETUO FOR PROPER 


OT-a 


CC 


TO DISC CU 


CL C 


CC 


ENSURE RESPONSE; 


STC 


CC'L 


AND SET CONTROL 


SFS 


DC 


CYL # ACCEPTED? 


J^P 


*-] 


NO. WAIT 



PAGF '05 *01 



0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196* 

0197* 

0198* 

0199* 

0200* 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215* 

0216* 

0217* 

0218* 

0219* 

0220* 

0221* 

0222 

0223 

0224 



mt 
■«■# 
it a 



01 7 

020 

021 

^2Z 
023 

024 

#2o 
02b 

02 7 
30 
3 1 
032 
033 
34 
35 
036 
37 
04 
041 
042 
043 
04^ 
045 
046 
047 
050 
051 



10661 1 
10 3 711 
102312 
027021 
.317 05 2 
06 3072 
102606 
106 702 
06307 3 
102602 
102702 
063074 
102O02 
063075 
043100 
102612 
106 712 
10 3 711 
103706 
103712 
lfV312 
027043 
017052 
063076 
067077 
016004 
027001 



0T6 DC YES, OUTPUT HO/SECT * 

STC OC.C TO CU AND SET CONTROL 

SFS CC IS POSITIONING COMPLETE? 

JMP *-l NO* wait 

JSH STAT YES* GO CHECK STATUS 

LDA CWi STATUS IS OKAY 

OTA 6 SET 

CLC 2 UP 

LOA CW2 DMA 

OTA 2 FOR 

STC 2 INPUT 

LDA CWi FROM 

OTA 2 DISC 

LDA RDCMD SEND READ COMMAND 

ADA DRIVE SETUP FoR PROPER DRIVE 

OTA CC TO DISC CU. 

CLC CC ENSURE RESPONSE 

STC DC,C PREPARE DISC DATA CH, 

STC 6,C START DMA, AND 

STC CCC SIGNAL DISC CU 

SFS CC HAS ALL DATA BEEN INPUT? 

JMP *-l NO* WAIT 

JSB STAT YES, CHECK STATUS 

LDA LOCN STATUS OK* GET DATA LOCATION 

LD8 .128 GET WORD COUNT 

JS8 GET GO DUMP TO SYSTEM CONSOLE 

JMP INIT2+1 LOOP FOR MORE DUMPS 



it it -tut 

S 

«■» 

11052 
1 1 053 
1 1 054 
1 1056 
H056 
11057 
1 1 060 
1 i 06 1 
1T062 

I 1063 

I I 064 
11065 
11066 
11067 

it it 
■»« 
it a -:} •» it it a 

** C 

it it it it it it # 

itit 

■«■•» 

1 1 070 
0(^011 
0->0l2 



it •::- --- v- it '.> -w- -if it it i> it •: > it & itit it it itit it it it it it # * it it # * it it it * «■ ■«• it it ■«■ ■«■ «•■»•«•«••«•■«■ '.t it it it it it ii it it it it it 

TAT - CHECKS THE STATUS OF THE DISC 

»*«»«*«♦*»«#»** ititiHHHiit #ft««#####»#**»#*ft##*4»##«»iH«Ht#«»»**** 



000000 STAT NOP 

063070. LOA STCMO 

04310 4 AOA DRIVE 

10 17H STC DCC 

102bl2 OTA CC 

10671? CI C CC 

103712 STC CC*C 

10231 1 SFS DC 

J2 7061 JMP *-l 

l/>23ll L1A DC 

10671 1 CLC DC 

0'/^0?ii SSA 

102011 HI.T 116 

12 7062 JMP ST A 1 , j 



ENTRY 

GET STATUS COMMAND CODE 

SETUP FOR PROPER DRIVE 
PREPARE DATA CH To RECEIVE STATUS 
SEND COMMAND TO DISC CU, 
ENSURE RESPONSE AND 
SET CONTROL 
IS STATUS WORD THFRE? 
NO* WAIT 
YES* GET IT 



IS STATUS ERROR 
YES* HALT 
NO* R^TUkN 



HIT SET? 



a it it a a -:;- it a -;t it it a it it it it v- it a it -;:- it it it •;.- n it it it mm it it a it it a it a it it it a it it it a it it it a it it it it ! ,t it •.'■ •:.- 

OMST ANTS, TEMPQR ARIES, EQUATES 

it it a a it it it it ait it a it itit it a it a -it it it it it it it it it it it •«■ it a it it -.t -it ■«• -a- -si- -suttt •>*■«■ ■«• <• ■«■ ■>;- it it it it it a •:;- it it a '.'< 



Z/00000 STC'^D OCT 00016/) STATUS COMMAND CODF 

DC FQU IIP OISC DATA CH SELECT CODE 
CC EOU 12H DISC COMMAND CH SELECT CODE 



PAGF 0,"06 4Jl 



0225 U071 030000 POSN OCT 3000id 

0226 U072 120/11 Ctol OCT 12001 1 

0227 H073 112000 CW2 OCT 11200,5 

0228 11074 177b00 CW3 OFC -12d 

0229 11075 020000 kDCMI) OCT 20i/i0tf 

0230 11076 012000 I OCM OCT 12000 

0231 11077 000200 .128 DFC 12p« 

0232 11100 000000 DRIVE BSS 1 

0233 end 

»# MO frpPQ^q* 



position command coop; 

DMA CW1 

DMA CW2 

OMA CW3 

PFAD COMMAND COUt 

CORE LOCATION OF OAT A 

WORD COUNT OF DUMP 

DRIVE NO.* OP 1 



Multiplexer. £louti«^£. 
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I DIRECTORY / 



/F//r/f cf Jl r<Z*S<£' s 



The directory is a table which contains all necessary informa- 
tion about each program or file in the system library. It resides 
on the disc and may occupy from 1 to £ disc tracks , -^d^Rpadlj^gM^pon 
h&y^wa^Y^t!i-4>^s_x^ A core resident table called 

DIREC contains information on the directory itself. 

A directory entry consists of 8 words and has the following format: 



WORD 






user id 


1 

2 

3 


program or 

file 

name 


A 


start of 
program pointer 


5 


date 


6 


disc address 


7 


-length in words 



BIT 15=1 if protected, if unprotected, 

BIT 15 = 1 if f i le, if program 

BIT 15 = 1 if semi -compi led , if 
uncompi led . 



The directory entries are kept sorted on words 0~3. BIT 15 of 
words 1 and 2 and 3 are not considered in the sorting. Names of fewer 
than 6 characters are filled out with spaces (^0„) . The date is the 
most recent date on which the program or file was referred to. 

The directory contains 2 pseudo entries which are the first and last 
entries in the table. They have the following form: 



FIRST ENTRY 



LAST ENTRY 









1 





2 





3 





k 
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177777 


6 





7 






177777 
177777 
177777 
177777 


177777 
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D)REC IS /? CORF FFS/S>£A/T TftBLE WHIC.H CCWr,?,'VS 

iHFo/?r7s)T/6<'- / fltou~r rue b/sc Fi/F5CT o /sr . It a/,^.c T*e 
Folio wisF& S TFUC TuFF £ : 
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1 





Word o 



l-H 



^ "M £ 
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N *> 
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X 3 5 
^ ^ \ 
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- 13 
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z?- 
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-m 


HZ-- 


'-/£■ 
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bl&cX~! o /?* 7FFC/<: % UShC'-J woRF O is O t t^oF/>c )- <-l A >F, 
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/£ 
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The ID table (IDT) is a disc resident table which contains one 
8-word entry for each ID code on the system. The entries are kept 
sorted according to the ID codes. An entry has the following format: 
WORD user id 

1-3 password (filled with O's if fewer than 6 characters) 
. .. . k time allowed (in minutes) 

5 time used (in minutes) 

6 disc allowed (in sectors) 
^-=_--r5»»7 disc used (in sectors) 

Words 4-7 are 16 bit quantities with values between and 65535. 
T-h-? following,? •■'">r- < i j =— 4-rr- rt ^ re — refer-^©~-t~he-4-DT-J 
4-D-W€-— d-Hrc— atfdrET3--?rr--v&T . 
l-Wr&N«-;=— kMigth~<-rr~wot»tfs— x)f--H)T . 

The' FOLLOUHW Two rOyR woRb -rnXLES /» coxs 
Rere/t to- •?-//£■ 2 £>T : 

IDTT/? - -mine of $/sc ^t^res^^s of I bj 
1DTRI - T#Bt£ of trbck Levar/ts or lb 

Th5 TRhCKS ft Re HfWZ>i£}> /AJ &c\S££££ C /*£?£> 
C<.e. f?Z>/>££SS Of r/?/)CA' 4 Co^CS F/Jk^T.) 



/ AVA I LABJJ^JH^TAJMJE_ 



J 



-j & fret's ^ - 2-3 (~/~ 



/ Ttf/te/C 



The available disc table (ADT) is a disc resident table which 
contains one two-word entry for each area of the disc which is un- 
allocated. An entry has the following form: 

WORD disc address 

1 length of area in sectors 

Entries are sorted according to word 0. Each entry may refer to 
as much as one full track, and no two consecutive entries ever refer to 
two adjacent disc areas (two tracks__are_not considered to be adjacent}. 

Besides the entries for unallocated areas, there is also one ADT entry 

■fa u. r 

for each of the £=*=?©* tracks on which the system itself resides, and for 
each of the up to -§2-- tracks allocated for user swapping. Word 1 of 
each of these entries is so that they will never be allocated. The 
purpose of having these entries is to indicate to the system dump that 
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Since track is always allocated as a system track, any possible 
disc address is guaranteed to be bounded by two ADT entries. 

The followinq two memory locations refer to the ADT: : 
ADLOC = disc address of ADT . ■ : S-- ■"'f",r ■' 

ADLEN = -length in words of ADT :' "_.... — """ 
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The FUSS table is a £a£ word table which resides on the disc. Its 

disc address can be obtained by the instruction. 
LDA FUSS.l 

FUSS is divided into 52 sections of £& words each. The "Rl words 

fifjb F)LC L£>VC-T*s 
in each section are the disc addresses^ of the user files currently being 

accessed by the user corresponding to that table. Addresses of indicate 

BlT /-£" OF f? FILE LE»*~ir) WORb 

no file, fers-c od d r -en scs— wf^b— fe-r t 7- " l " i nd i catejthat the user has read 
only access. 

The purpose of maintaining this table is to: 

1.) Prevent simultaneous write access by two users to one file; 
2.) Prevent KILLing a file when some user has access to it. 

A user's FUSS (i.e. his area of the FUSS table) is set by the Fil.ES 

routine, which is called from BASIC at the beginning of execution of a 

program containing a FILES statement. It is cleared by BYE, HELLO, 
KILLID, and sometimes by KILL. 



COMTABLE 

The COMTABLE is a list of all user and system commands containing 
their ASCII codings and disc locations or core addresses. The structure 
of the COMTABLE is as follows: 



C0M1 codes for commands which are 
executed immediately by the 
system 

COM2 codes for commands which are 
executed by 
BASIC 

COM3 user commands which are 

executed by disc resident 
programs 

COM4 system commands - - all are 
executed by disc resident 
programs 

C0M5 starting addresses for these 
commands which are listed 
under C0M1 and COM2 



C0M6 disc addresses for those 
commands which are listed 
under COM3 and COM4 



(thi s sect ion is fill ed 
by the loader) 



Since each command is recognized only by its first 3 letters, the 
scanner converts each letter into a number from to 31o. and then packs 
the three codes into one word as three 5~bit bytes. in addition, bit 15 
is set for system commands. Codes of -1 in sections 2, 3. and h do not 
correspond to any possible 3~letter code. Their purpose is to generate 
room in C0M6 for disc addresses of routines that are called indirectly, or 
for tables like FUSS. in the case of CTAPR, the purpose is to generate a 
status type for printing compiler tape errors without a direct command from 
the user. 



LOGGR 

LOGGR is a -63-word queue which contains codes for printing 
LOGON/OFF messages. Entries are placed on the queue by HELLO, BYE, and 
SLEEP. Each entry consists of 2 words, with the following format: 

WORD 0: user id (BIT 15=0 for ON, 1 for OFF) 
1: bits 15"5 = 60 x hrs + mins 
bits h-0 = terminal number 

The representation of a user id is as follows: 

BITS 14-10 = letter (A = 1, B = 2, ..., Z = 32 g ) 
BITS 9-0 = number (0-999) 

The following variables are relevant: 

LOGCT = # of unprocessed entries in LOGGR 

L0GP1 = points to word 1 of last processed entry 

L0GP2 - points to word 1 of last unprocessed entry 

Note that LOGCT = <=> L0GP1=L0GP2 
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DISC: disc address of user's swap area 

PROG: when user is on the disc, PROG points to the last core 
location used by the program. When the user is loaded 
into core, PROG is placed into PBPTR. When he is written 
back to disc, PBPTR is copied into PROG. BASIC is 
required to maintain PBPTR as a bound on the core it is 
using . 

ID: user's id, if none 

NAME: a three word entry containing the user's program name. 

It is set by the routine NAME & GET & CHAIN, and cleared 
by HELLO. When fewer than 6 characters are in the name, 
blanks are appended. 

CLOC: this is the timeout clock used to determine the length 
of a user's time slice. See the discussion on 
scheduling for further information. 

RSTR: this is set, when a user is placed on the queue, 

to his starting address in core. When the user is 
actually initiated, RSTR is set to 0. Whenever RSTR = 0, 
the transfer address of the user can be found in location 
PREG. 

STAT: indicates user's status. The user's status is as follows 

~3, enter timeout 

-2, system disconnect 

-1, user abort request 

0, idle 

1 , system abort 

2, input wai t 

3, output wai t 

k, syntax processing 
>k, command processing 



When a command is being processed, STAT indicates the command. STAT 
values are assigned in order of entries in the COMTABLE, so that 
RUN = 5 
LIST - 6 
PUNCH = 7, etc. 

LINK: the LINK words in the tables are used to form a queue of 
active users. All users whose status is > A are in the queue. See 
discussion on scheduling for further information. 
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PLEV: this word gives the priority level of the user when he is 
on the queue. When the user's status is set to 2 or 3i the 
previous value of STAT is copied into PLEV, and the user removed 
from the queue. The possible values of PLEV are as follows: 

0: highest priority, used for syntax, users returning from 

I/O suspend, and for disc resident routines once they begin, 
This includes FILES and CHAIN. 

1: used for commands RUN ,L I ST, PUNCH 

2: used for disc resident routines until they reach the top 
of the queue 

h: used for long running programs. 

• RT J M ; U»e— l- ei r yt ti u f 'I'l ' me — m-s-eeefldfe—tk a-t ■- i4~ - t eek»4:4»e^ , tfS'g1' c ^TP |1 

Associated with each item in these tables is a symbol which is 
ECHJated to thfl rnrrp.snnndinn numhpr nf the 'tern, ^or example: 



7FLAG EQU 
7TNUM EQU 1 
7RTIM EQU 15 

These symbols are primarily used for adjusting pointers to the 
table. For example, if the B register contains a pointer to the 
LINK entry of some user, the instruction 

ADB .+? ID - ? LINK 
will point B to his ID entry. 

. is a symbol located in base page at the entry of a table of con- 
stants from -26 to + ^9. A word containing the value N, where -26<_ N<_^9 
can be referenced by .+N. 
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During running, each user track contains a copy of the area from core 
location USER through the core location specified by its ?PR0G entry. This 
includes all variable data which is relevant to that user's program, and his 
program itself. The location of various sections in his program is discussed 
elsewhere. 

Programs and files are each required to be stored as contiguous blocks of 
disc. Since the disc is allocated by sectors, each program may cause part of 
its last sector to be wasted. When a program is stored (by the SAVE routine), 
it is first decompiled and is stored in that form. Only the encoded text is 
stored, so that a program may require as little as 3 words of disc space. 
Wrrerr-e— progi'din -f-s— s-to-red — (^y— fcbe— G SAV E r -ou-^4-oe) — i-t-« is^s av ed in a s es aJLui^m^A-U^-ci — 

f-Q*ro^_J_ 1 je_ JL _ the fo _£m_Jj— i-s — i-o— a -fire i — "tiie - s^mboi — ta b^l-e — i-s -bu44-t-, Be-t-h— t-he— c^eeded— - 

-text—a-rxi-ttie— symbol "~rab]e-are~~S"tored y-pl us~6-words-^f~-nec-es&a-r-y— ^-rvf-ef^ra-fe-i-ofH— 

Files always occupy an integral number of sectors (1 - 128), each file 
occupying a contiguous area on the disc, BASIC decs not treat the individual 
sectors in the same logical sequence as the physical sequence, but rather inter- 
leaves the sectors, as follows: 

even # of sectors 

Physical sequence: 1 2 3 k ... 2n-2 2n-l 2n 

Logical sequence: 1 n+1 2 n+2 ... 2n-l n 2n 

odd § of sectors 

Physical sequence: 1 2 3 k ... 2n-2 2n-l 

Logical sequence: 1 n+1 2 n+2 ... 2n~l n 

This format tends to decrease disc seek time when sectors are accessed 
in a logically ascending order. 
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SCHEDULING 

The basic philosophy of the TSB scheduling algorithm is to provide short 
response times for short, interactive jobs at the possible cost of delays in 
longer running jobs. The implementation of this involves a queue of jobs to 
run which is ordered according to a priority scheme. The queue is a linked 
list of from 1 to 3^ entries, each entry pointing to the next entry, and the 
last entry pointing back to the first. The 3^ possible entries in the queue 
are the 32 user LINK entries, a LINK word in a truncated TELETYPE table reserved 
for the system console, and a queue head. The queue head consists of the 
locations MLINK (0:2), and is always in the queue. The queue head has a 
priority of 11111c,, which is stored in location MLINK+2, and so it is always 
the last entry in the queue. As an example of how this works, assume that 
users 1, 3 and 6 are on the queue in that order and so is the system console, 
in a position between users 3 and 6. Then the queue will have the following 
appearance: 
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Since the MLINK entry is always the last entry on the queue, MLINK+1 
is a pointer to the first entry, which in this case is TTY01 . In the case 
of an empty queue, MLINK+1 will point to itself, i.e., CONTENTS (.ML I NK+1 ) = 
CONTENTS (ML I NK) . Each entry on the queue has a priority no greater in 
numerical value than that of the one it points to. When an entry is adde d 
to the queue, this ordering is always p reserved by placing the new entry 
jus t ahead of the first entry with a larger priority numhp.r . Note that 
when the first entry in the queue has priority 0, it will remain at the 
head of the queue until it is removed from the queue entirely. 

The following rules are used to assign (and reassign) priorities: 

1. Upon first entering the queue, jobs are assigned priorities as 
fol lows : 

SYNTAX lines and jobs returning from I/O suspend: 
BASIC commands (RUN, LIST, PUNCH) : 1 

Commands for disc-resident routines (GET, BYE, etc): 2 

2. Priorities of jobs are reassigned in the following way: 

Jobs of priority 2, when they reach the top of the queue, are 
reassigned priority 0. 

RUN jobs, when they exceed their time slice, are re-assigned 
priority A, and repositioned in the queue according to that 
priority. Each RUN job is assigned a time slice of two seconds, 
and if it exhausts that it is assigned another. When executing 
a <CHAIN statement> or a <FILES statement>, a RUN job is reassigned 
a priority of 0. 

The scheduler always chooses to run the job on top of the queue, so 
that whenever a job is running, MLINK + 1 is pointing to its link word. 
The two locations MAIN and LIB are control variables which tell what is 
presently in core. MAIN refers to one of the £fr user programs. It is a 
pointer to WORD of the TTY table of the user program currently in core, 
If none is in core, MAIN = 0. 
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LIB points to the location in the COMTABLE of the disc address of the 
library routine in core. LIB = when none is present. 

The following conditions must exist for the scheduler to permit 
execut ion : 

A) for Syntax and BASIC commands: 

MAIN set to point to correct user table 

BO for disc resident commands: 
MAIN = 
LIB set to correct disc resident routines. 

The scheduler routine SWAPR is responsible for creating these conditions, 
and makes its decisions according to the values of MAIN, LIB, and the entry on 
top of the queue. 
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COMMUNICATION BETWEEN SYSTEM MODULES 

There are six system modules that communicate with each other in 

mvlt) Pt.6x£A> 
various ways: the disc driver, TfQ Pi mes-sor driver, system console driver, 

scheduler, BASIC, and system library routines (HELLO, BYE, KILLID, etc.). 

1 . Disc Driver. 

Any section of the system may call the disc driver to perform a disc 
transfer. Three parameters are passed: 

A = disc address (bits (15:1*0 = disc number 

bits (13:8 ) = track number 

bit 7 =0 

bits ( 6:0 ) = sector number) 

B = core address (bits (14:0 ) = core address 

bit 15 = 1 for disc input 

for disc output) 

WORD = ~§ of words to be transferred (may be 0, in which case no 
actual transfer is performed). 
Called by JSB DISC.l 

It is the responsibility of the caller to insure that the disc is not 
busy when the call takes place. This is no hardship since while BASIC or a 
system library routine is running, no other module ever initiates disc transfers, 
As a result, the disc will appear to be busy only if the module itself has 
initiated the transfer. 

Upon initiation of a disc transfer, the variable ENDSK is set to 1, and 
it is cleared upon completion. A complete transfer can be performed by: 

JSB DISC,1 

LDA ENDSK 
SZA 

JMP *-2 
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The system never suspends a program for a disc transfer because the 
high speed of the disc does not cause any great overhead. 

The value of WORD is not modified bv the driver. 
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III. System Console Driver 

j The system console driver maintains two flags, T35F1 and T35F2, 

j which determine its status. The meanings of these flags are as follows: 

VS.?*-" /~\ T35F1 : = -1 during output, otherwise 

\J\' T35F2: Normally 0, it is set to -1 by the driver at the conclusion 



w 
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of input, and cleared to externally. The combined values of these 
is more significant: 



Fl 


F2 











-1 



driver is accepting input 

1) input command received and being processed, or 

2) output terminated from a system command which is to be 
reinitiated 

■1 outputting 

1 "1 outputting, at the end of which the current system command 
will be rein i t iated . 



When F2 = -1, the driver will not accept any input. This guarantees 
system library programs that they will not be interfered with. These 
routines are responsible for clearing F2 when they call the driver for 
the last time. F2 and the console status (T35ST) are also cleared if 
a key is struck on the console during output. This will effectively 
terminate such things as DIRectories, REPorts and STAtuses. 
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The calling sequence is: 

A: bit 15 = if CRLF is to be appended, bits (14:0) = # of chars. 
B: bit 15 = 1 if punching is to take place in addition to printing, 
bits (1*1:0) = core address of output buffer. 

JSB TTY35.1 

The driver uses the 36 word buffer T35BF as an input buffer. Most of 
the library routines use it for output, and occasionally for temporary 
storage between lines of output. 
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JVX Input and Termination Requests 

BASIC may obtain input from a user console by performing the 
instruction 

JSB SCHIN.l 

Either BASIC or a system library routine terminates by: 

JSB SCHEN.l 

It is possible for BASIC to call a system library routine 
directly by executing: 

JSB SCHLB.l 

DEF <location in COMTABLE of disc address of program> 

This is done with the FILES and CHAIN routines. It is necessary 
that the library routine cooperate with BASIC, i.e., not any program 
can be so cal led . 
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SYSTEM LIBRARY ROUTINES 



FILES 



The FILES routine is used by BASIC to process FILES statements in a 
user's program. The function of the FILES routine is to translate 
the file names in the user's program into a table for use during 
execution. This table contains a 7~word entry for each file. Its 
format is: 

1. Physical length in sectors (BIT 1 5 = 1 if read only) 

2. Disc address of last logical sector 

3. Not set by FILES routine 

k. Disc address of first sector 
5-7- Not set by FILES routine 

During operation of the TILES routine, a temporary buffer is used 
as a table to store intermediate data. Three words of the buffer 
are used for each file. The operation is as follows: 

1. Translate characters in FILES statements into the buffer 
table. FILES statement^ a-r-e- poi n ted to by a— hear— word— t-aW-e — 
in the user swap area- wh4-e-h— is— po-i-ft-fc e t l to by D TI L T-t 

F-t LCT - — ~5-t--#-of- r I LCS st a^ - cme n t s- The-f-e may rbT^-tq3=todb=s*tcjb. 
statemefK-s. Filenames are extended to six characters, if 
necessary, and those which are specified to be public files are 
marked by setting Bit 15 of their first word to 1. Possible 
errors found in this step are: 

a. File name of or > 6 characters 

b. More than 4^files requested 

2. Perform directory search for each file. D I RWD is set to the 
disc address of the directory track in core so that DLOOK doesn't 
have to read and write the directory for each file. Change the 



51 



last two words of its entry in the buffer table to the 
disc address and length in sectors. The. read-only bit is 
set if the file is a public file and the user is not A000. 
An error occurs if the file is nonexistent or protected. 
Update the date word in the directory entry for this file. 

3. Test to make sure that there is sufficient room in the user 
area for the file table. 

A. Scan the FUSS table to see if any other user has write 

capability on the files requested. Mark any such files as 
read-only. This test is skipped if the user's ID has a 
letter prefix 'A 1 . Copy the disc addresses of the requested 
files into the user's portion of FUSS. Indicate read-only 
files by marking bit 7 in FUSS. 

5. Build the table specified above. FILTB is a pointer to the 
beginning of the table. Upon exit, VALTB and PBPTR both 
point to the first word following the table. 
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CHAIN 



The CHAIN routine is used by BASIC to process a CHAIN statement 
in a user's program. The function of the CHAIN routine is to find 
the program named in the CHAIN statement, retrieve it from the disc, 
and begin execution. It operates as follows: 

1. Dump file buffers. 

2. Translate name of program from CHAIN statement. Invalid names 
exit to error. If preceded by a $, set up A000 search; other- 
wise set for searching on user's ID. 

3. Perform directory search. Exit to error if not found. 

k. Check if entry is a file. If so, exit to error. Also check 
that program fits. If not, exit to error. 

5. Update date entry in directory and write directory track back 
to disc. Copy the program name into the user's table, and if 
this is a run-only program, set the run-only bit, unless the 
user is A000. 

6. Read in the basic portion of the previous program, including 
the common area and then append the new program. Call 
SEMIC, which sets up pointers for the language processor^ 

dep en dent u-petv-wfre-t^e- r the progra m }<=■ "n<~nmpilf^ <->i^-^*«*H-g— 

oomp-ried": ' 

7. Check if an abort was attempted during the previous steps, 
and if so, abort the user. 

8. Bump the user's timeout clock. If he times out, take him 
off the queue and reinsert him with priority = h and jump 
into the scheduler- Otherwise, jump to the compiler. 
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SAVE 



The SAVE routine is called by a user to save a program in the 
library. Its operation is as follows: 

1. Test for the existence of a program name and a non-null 
program. 

2. If the user's program is in compiled form (CFLAG bit = l), 
call DCMPL to put it into the form in which we will save it. 

3. Check if the common area has been allocated. If not, call 
ALCOM, which computes the amount of space required for 
common. This is used to determine the start-of-program 
pointer which is saved in word h of the directory entry, a 
device which keeps the common area from being overwritten 
on GET's and CHAIN'S. 

k. Test to see that the user has sufficient disc space allocated 
to save the program. The test to be satisfied is: 

(disc currently in use) -r (length of program in sectors) 
<_ (d isc al lowed) . 

5. Search the ADT for the first entry large enough to hold the 
program. Remember the address of the entry in SAVA. 

6. Perform a directory search on the program to be saved. Fail 
if such an entry already exists. 

7. If the directory track is full, call the SUPERSAVE routine to 
attempt to reallocate the directory. ~S-U PERSAV -E— w-t- M perf o r m — 

. s^ef»~8— t-trself an'd "pr oreed Lo s t ep 9~ — 

8. Insert a new directory entry into the directory. 

9. Update the IDT and ADT. 

10. Copy the user's program to its library area. 
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GET 



The GET routine is called by a user to load a program from the 
library. The operation is as follows: 

1. Translate name of program from user's input. If preceded by 
a $, set up for A000 search; otherwise set for searching on 
user's id. 

2. Perform directory search. Print error if not found. 

3. Fail if entry is a file (BIT 15 of word 2 of entry is 1). 
Check that the program will fit into the user area. This is 
necessary in case a program wh i ch was saved under an old 
version of the system can no longer fit with the current 
versi on. 

A. Set the date into word 5 of the directory entry and write it 
back. Copy the program name into the user's table, and if 
this is a run-only program, set the run-only bit, unless the 
user is AOCO. 

5. Read in the basic portion of the user area and the common 
area. Append the library program, reading it in starting 
with the word specified by the start of program pointer 

(word k of the directory entry). 

6. Call SEMIC, which sets up pointers as follows: -Fo-r— tm€©rap-i-l-&d 
fo=Qg4 : ams^.xJ-e3X-£f^rA€HrrT~ dnd set 3YMT -B— =^- Q-. Ew^— s-eflH-eemp4-4e-d 

^rogr^ms-T-^e-t-^^l^G-4>4^--r-fflove— A— p©4-o-t-e-r-s — fre— H4r€5— s td lemerrfrs 

-+frto-F-tST-S- r -s e t- F~44^CT7-^e-t— Si^^—ti3^©4-frt-^^ — ' 

-the .5 ymbq 1 t .ab 1 e .. and -set— S PTR=£h- — Fet^ai±i^y4ies_jafl~pxog^m£-^ 
set MAIN to point to this user, set SPROG to the start of 
program pointer and set PBPTR to point past the last word used 
by the program. 
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APPEND 

The APPEND routine is called by a user to append a library program 
onto his current program. The operation is the same as GET for 
steps 1 _ 3, and then continues as follows: 

A. Check that the program to be appended is not semicompiled and 
has no common area. Set the date into word 5 of the directory 
entry and write it back. 

5. Load user's current program and call DCHPL. Check that the 
program to be appended will fit, and if so, read it in at the 
end of the current program. 

6. If the current program is not null, search it for the sequence 
number of the last statement, and insist that it be smaller 
than the sequence number of the first statement of the appended 
program. If okay, update PBPTR and exit. 
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HELLO 



The HELLO command is used to log a user on to the system. Its 
operation is as follows: 

1. If the current id is 0, there is no user to log off, so go 

to step 2. Otherwise, clear the.user's section of FUSS, 

SC* ^h: phc^^i i-tn'r'i tour/ i a /;^,< 7(,e u s s r /•.?■ a**. 
and fce-H — t-he — 1-/0— p-r-oces-s-or__Lhat--a_«ew— user_caJ led. This 

will force the user to be disconnected if he does not 

successfully log on. 

2. .Re^d — t h e !# ?. If there is no user to be logged off, go to 
step 3- Find the old user's IDT entry and update his total 
time used. Add an entry to LOGGR to be printed on the system 
console. Set the user's ID word to 0. 

3. Translate the new idcode and search for it in the IDT. If 
not found, print an error message and terminate. Compare the 
password typed to the correct one, and fail if they disagree. 
Also, check that the time used to datp. is less than the time 
al lowed. 

Add a LOGON entry to LOGGR, and set the starting time into the 
user's table. Also insert the idcode, clear the name, clear 
the prog ram, and — te+i — I/O piucessui of success fuH — fogeft-r— 
Search the directory for a public library HELLO program. If 
not found, or if it is a file, or if it won't fit in core, 
print READY and terminate. 

6. Read in the fixed user area and append $HELL0. Call SEMIC, 
which sets pointers as in SAVE. Change the user's status 
to RUN, set TIMEF, and transfer to BASIC. 
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BYE 



This command is used to log a user off. It operates as follows: 

1. If the user id is 0, go to step 2. Otherwise clear the user's 
FUSS table and read in the IDT. Compute the time used and 
update his IDT entry. Create a LOGOFF entry in LOGGR. Clear 
the user's id entry and output a message. 

2. T-e-H — the — U/O— p-F-oee-s-s-e^-=te- res tore this port to full duplex 
and disconnect him and then terminate. 
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KILL 



The KILL routine is called by a user to delete a program or a file 
from the library. Files which are being accessed by another user 
are not al laved to be killed. The operation is as follows: 

1. Translate the program or file name and perform a directory 
search. Fail if illegal name or the search fails. 

2. If the entry is a file, search the FUSS table to see if 
any other user has access to the file. If so, print a 
message and terminate. If not, clear the user's section 
of FUSS. 

3. Delete the entry from the directory and adjust DIREC. 
Subtract the program length from the user's IDT entry, and 
restore the space to the ADT. 

A. If a file was killed, read the user's program in and de- 
compile it. This guarantees that any old references to 
the file will disappear. 
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RENUMBER 

The function of RENUMBER is to assign a new set of sequence numbers 
to a user program. The user may specify the sequence number of the 
first statement and the increment between statements. If unspecified, 
these are set to 10. 

There are actually two sets of numbers that must be modified. One set 
is the sequence numbers themselves, each of which occupies the first 
word of its statement. The other is the set of references, which are 
labels in GO TO, GOSUB. RESTORE, and iF statements. Each of these also 
occupies one word. For programs in compiled mode, they are pointers to 
the statement they reference; in decompiled mode they are the actual 
statement number. 

The primary technique used is to change all the references to absolute 
pointers (if in decompiled mode), then to change all the sequence 
numbers, and then (if in decompiled mode) to change the references to 
the new statement numbers. References to nonexistent labels are left 
unchanged. 

Because the process of changing all the references to absolute pointers 
can become quite time consuming (due to the search that must be per- 
formed for each reference), a table is built in advance essentially 
dividing the program into 32 parts, each containing the same number of 
statements. For large programs with many references, this effectively 
cuts the time down by a factor of close to 32. 

The subroutine RENSK is used to scan for references. It maintains two 
pointers, P and Q. Whenever it is called, it moves P to the next 
reference, and sets Q_ to point at the statement following the one that 
P is pointing at. It takes advantage fo the fact that any references 
within a statement are always the last word or words of the statement. 
Before calling RENSK for the first time, Q is set to point at the be- 
ginning of the program, and P is set to Q- 1 . 
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The operation of RENUMBER is as follows: 

1. If null program, terminate immediately. Otherwise, read in 
user program. 

2. Translate and check parameters M and N. 

3. Scan through program and make sure that the new sequence 
numbers will not exceed 9999- 

k. If program is in compiled mode, go to step 7. Otherwise, set 
up a table in ERSEC which divides the program into 32 parts. 
The result is that for each I from to 31 

ERSEC [l] = sequence number of first statement in part I, 

ERSEC [1+32] = Absolute address of that statement 
If there are 32K + L statements (0 < L < 30 in the program, 
ERSEC [l] is the sequence number of statement. 

(K + 1) I + 1 , if l< L 

Kl + L + 1 , if l> L, K 
L if l> L, K=0 
Set Q = SPROG, P + Q_- 1 . (SPROG points to the first statement). 

5. Call RENSK to find the next statement reference. if there are 
none left, go to step 7- Find the largest I for which 

ERSEC [I] < (RENP) . If there is none, the statement referenced 
does not exist, so go to step 6. Otherwise, test all statements 
from (ERSEC [I + 32]) to either (ERSEC [I + 333) or PBPTR, 
depending upon whether I < 31 or I = 31. If found, set (RENP) 
to the location of the statement referred to, and repeat this 
step. Otherwise, go to step 6. 

6. Set (RENP) = (RENP) + lOOOOOg and go back to step 5. 

7. Change the sequence numbers of all statements, according to the 
M and N parameters. If compiled mode, terminate. Otherwise, 
set Q. = PBUFF, P = Q_- 1 , and go to step 8. 

8. Call RENSK to find the next statement reference. If none left, 
terminate. If (RENP)<0, the reference was undefined, so set 
(RENP) = (RENP)-lOOOOOg, and repeat' this step. Otherwise, set 
RENP = ( (RENP) ) and repeat this step. 
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NAME 



The NAME routine is called by a user when he wants to assign a 
name to his program. The program name is placed in his teletype 
table. The operation is as follows: 

1. Get an input character. If a carriage return change it to a 
blank. If a control character, ignore it and repeat this step. 
If a "$", and this is the first character, print an error 
message and terminate. 

2. Add the character to the user's name area. If <6 characters, 
go back to step 1. Otherwise, restore the RUN-ONLY bit, and 
get one more character. If not a blank, print an error message, 
Then terminate. 
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CATALOG 

The CATALOG routine prints a list of all programs and files in the 
user library. The operation is as follows: 

1. Perform directory search on the program with all nulls. Get 
first directory entry following the one sought. 

2. If the entry does not belong to this user, output a CRLF and 
terminate. Otherwise, output the 6 characters of the name one 
at a time, then a blank, then a— L 6 J — i f a G -emf- iuwp i l ed program 

^c an ' F ' if a file (or a blank if - no * the - r -) , then the k digits 
comprising the length of the program or file, and the 2 more 
blanks. 

3. If <5 names have been printed on the line, advance to the next 
directory entry and return to step 2. Otherwise, copy the— R*™e- 
of—the — Las-t ..one cm^p-trt- into ERSEC (0^2') in the user area, output 
a carriage return and suspend until the buffer is almost empty. 

.. ,.CCC \..,- — nn m." DI_ij*v h«-u— p-rjvji ciii'i (j-niautf I i Gill X-f\-jL.\s \«;.i-/ iii 

the user area,-at*d— pe^e feniC- a directory s-eercrn The — recrsxrrr^f-eH= — 

doiQg— th=+*-4=a=^hi^wa ^fattef- Irh vrf^rav- Vrig " a ■yo4=ff£&g=fccczfcb. e - 
di-reett3ry-=4-s-^thet— ri u r i ng—t he— t-i fne— GAT-AL0G— wa - 5=^s"U5"p"endeTd^.'rt-he 
r dij^ctoj^^niay^4«ve-t>ee4V-chatnged-4w=af»y ;; wayT — '^eTFTh'e^-^krAJ: 
d 4-^r-ee-t-o r-y— efl-t-r-y— fo4-l ow rng — ao4—go~baGk-^to.>=^s-t-ep-=2^r: 

s^cp Z. 
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LIBRARY 

The LIBRARY routine prints a list of all programs and files in the 
public library. Its operation is identical to that of CATALOG except 
that A000 is used for directory searches instead of the user's id. 
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DELETE 

The DELETE command allows a user to delete a section of his program. 
He can specify two parameters, M and N. M refers to the first line 
to be deleted, N to the last. If N is not specified, the entire pro- 
gram is deleted, starting at line M. The operation is as follows: 

1. Translate and check, parameters. If N is not specified, set 
it to 9999- 

2. Decompile program. 

3. Locate range of statements to be deleted. 

k. Move portion of program following deleted area up against 

portion preceding. 
5. Reset PBPTR and exit. 
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PROTECT 

The PROTECT command allows user A000 to protect a program or file. 
Program protection means that no other user may list or save the 
program. File protection means that no other user may access the 
file. A000 files are always protected against other users writing 
on them. The operation is as follows: 

1. Check for A000. 

2. Translate and check the program or file name. 

3. Perform a directory search on the specified program. Fail 
if not found. 

h. Set the protect bit (BIT 15 of word 1 of the directory entry), 
write the directory back to the disc, and terminate. 
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UNPROTECT 



This is identical to PROTECT except that it clears the protect bit. 
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OPEN 



The OPEN command is used to open data files. The user must specify 
the filename and file length in sectors (1 to t2&) . The operation is 
as follows: 

1. Translate and check the file name and length. 

2. Check the IDT and ADT to see if a) the user has enough 
disc allocated to him to satisfy the command; and b) there 
is an area on the disc which is large enough to accommodate 
the file. Save the location of the ADT entry and its informa- 
tion, but don't update it until we know that there is room 

i n the di rectory. 

3. Perform a directory search on the file name. If found, this is 
a duplicate entry, so terminate. Otherwise, if the directory 
track is not full, insert the new entry. If it is full, call 
in SUPERSAVE to restructure the directory and insert the entry. 

b. Update the IDT and ADT appropriately. 

5. Initialize the file so that a -1 (end-of-f i le) is at the 

beginning of every sector. Write the file to the disc and 

then terminate. 
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LENGTH 

The LENGTH command prints the length of the user's program, as it 
would be if saved. This is only the length of the source area of 
the program, and includes neither the fixed portion nor any of the 
tables used at run time. The length is determined in one of two 
ways : 

1. if the user is in decompiled mode, length = PROG-SPROG. 
PROG is just a copy of PBPTR, which points to the last 
word +1 of the program. PBUFF points to the first word. 

2. if the user is in compiled mode, length = SYMTB-SPROG. 
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ECHO 



The ECHO command is used to control the computer echo of teletype 
input. Echoing is determined by the user's bit in the word PLEX 
or PLEX1 in the I/O processor. Bit = implies no echo, 1 implies 
echo. The user will want echoing if andonly if his teletype is 
full duplex. The command format is: 

ECHO-ON for full duplex. 
ECHO-OFF for half duplex. 
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REPORT 



The REPORT command prints IDT information on the system console. 
From each IDT entry, the user id, time consumed, and disc consumed 
are printed. The entries are printed three per line. Note that the 
time printed on the console does not include any time for currently 
active users, since these are not added to the IDT until the user logs 
off. The operation of REPORT is as follows: 

1. Print heading and suspend 

2. Read-po-rt+OR- of IDT containing next three IDT entries. 

3. Translate id, time, and disc of next three entries into 
output buffer. If less than three left, only do those. 

k. Print and suspend if necessary, otherwise terminate. 
5. Go back to step 2. 
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RESET 



The RESET command modifies the time to date of a user's IDT entry. 
The format is: RES- IDCODE, TIME 

1. Read IDT. 

2. Set ID = T = 0. 

3. If IDCODE = "ALL", go to step h , otherwise get ID = the 
specified IDCODE. 

A. If no time specified, go to step 5- Otherwise, set T = 
specified time. 

5. If ID = 0, set word 5 of all IDT entries to T. Otherwise, 
locate specified id and set word 5 to T. 

6. Write IDT back to disc and terminate. 
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SPEED 

The SPEEO ccpr-p^b /s used to coajf igupr the user ports. 

The FOPrjrt k$; SPE- s. a vi> R.dRR, STOP- B/r , Port list 

5/?UD Rr/TP The DR7 R ' JRfrPJ FPK R ^T£ OR 7>'-5 R:R 

TEj'm^PL FOR i^PJC/J T»E PORT Li T* A 
Co^E/( (y RR i>. T/i r- P*u3> RPRR RA^s PR 

'^' :;, pfj> RR 'RR c RctlOtv/ssY- F aRR/P^P) ; 

iv T RR'/t 
S10P'B)T The tot pi k> annex of stop pits hvciobtz ^ 

J Hi: D IT CO'^TPosiTJQ/v cp ,9 CPPPPC p£P. 



PORT 

The PORT connft^b 'S U6£P To Pa'///?' T*f-~ HunBdZ of 
STOP g/71 ////£ T/Vt" Zft'Jb R/-TS FOP criC^ OF T/rC sj P£P 
Th€ FOPPA'-?T n Ti-vc F16-PT FF'TPF L/A/fS &/■/?/?? EACrf 
F hJTRY /9FS Tr? £ F qilo *st*sc F PP? .■ 
STOP - 8 fTS — ZfiVD R&TE 



CHANGE! D 

The CHANGEID command is used to modify any or all of the parameters 
in an IDT entry. The parameters that can be specified are: password, 
time allowed, disc allowed. The operation is as follows: 

1. Translate id specified. Read IDT and locate the specified 
id. Fai 1 if not found. 

2. If password specified, Insert into IDT entry. If followed 
by comma, go to step 3, otherwise to step 5. 

3. If time specified, insert into entry. If followed by comma, 
go to step A, otherwise to step 5. 

A. Insert new disc value. 

5. Write IDT back to disc and terminate. 
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NEWID 



The NEWID routine adds an entry to the IDT. The operation is 
as follows: 

1. If the IDT is at full capacity, print an error message 
and terminate. 

2. Read in the IDT. 

3. Translate the parameters. 

A. Search the IDT for the specified id. Fail if found. 

Otherwise insert the new entry in its appropriate position, 
update I DLEN,— w-r-t-tc t h e — H9T— brack— to di s c, c m d ternu -najLe^^. 
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KILL1D 

The KILLID routine removes a specified id from the system. The 
operation is as follows: 

1. Get the id. If the id is A000 , fail. This is because the 
files belonging to A000 may be accessed by other users, and 
removing them would be almost impossible. 

2. Search the IDT for the specified id. If not found, terminate. 
Otherwise, delete the entry from the IDT and write it back to 
the disc. 

3. If any user with the specified id is currently on the system, 
set the id item of his TTYTABLE to 0, set his status to -2 
and his C0M14 bit to force him to be disconnected, and remove 
his from the queue if he is on it. Also, zero out his section 
of the FUSS table. 

A. Load the overlay section. This section will remove from the 
directory any entries belonging to the user being killed, and 
will release the space occupied to the system. 

5. Remove all directory entries belonging to this user, and build 

a table which will be used to patch the ADT. For each directory 
entry, two words are placed in the table, the disc address and 
length of the released area. 

6. Update the ADT, using the patch table information. 
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PURGE 



The PURGE routine is used to delete from the library all programs 
or files which have not been referenced since a certain date. The 
operation is as follows: 

1. If HELLO program exists, assign it today's date. This is 
because the HELLO routine does not perform this function. 

2. Interpret parameters and set DT to the purge date. Make sure 
that DT < today's date. 

3. Make sure that FUSS is empty. This is to avoid killing any active 
f i les . 

4. Set ID = - max (LI BUS- I DLEN , L 1 BUS-ADLEN)-4. This is used to 

determine when the update table described below has reached the 

point when the updates must be made. 
Uj £ fiy o 

5. Set P = -fc+ftUS- + iNs*8 , I = DIRDO. P is a pointer to the update 

table. Each entry in the update table contains 3 words: 

a) id 

b) disc address 

c) length in sectors 

6. Read di rectory. If LIBUS-MEM [l] >P , the directory won't fit, 
so call PURFX to remedy the situation. Then read the directory. 
Set M0VED=M0VES-L1BUS, D = LIBUS-MEM [I J. 

7- Test next entry. If MOVES = D, we're done with this directory 

track, so go to step 11. If MEM [MOVES + 5] >DT, we don't want to 
delete the entry, so perform an 8 word move and repeat this step. 

8. Entry deletion. Set T = MEM [MOVES], Tl = MEM [MOVES + 6], 

T2 = (- MEM [MOVES + 7] + 63) t 64', MOVES = MOVES +8. If P-3 >D, 
we have room for another update entry, so go to step 9. Otherwise, 
set N = MOVED, perform a move of D-MOVES words , set D=M0VED, 
MOVED =■■ MOVES = N. 

9. If P + ID >0, we can add a new update and still be able to 
load the IDT and ADT, so go to step 10. Otherwise, write LIBUS 
through D- 1 to the disc, call PURFX, and read back LIBUS through 
D-l. 
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PURGE (contd) 



10. Hake entry in update table. Set MEM [P-]] = T2 , MEM [P-2] = Tl , 
MEM [P-3] = T, P = P - 3, and go back to step 7. 

11. End of di rectory track. Set MEM [l] = LIBUS-MOVED, update DIREC 
and write the directory back to the disc. If I 5^ DIRD3, set 
1=1+7 and go to step 6. Otherwise, call PURFX once more 
and then terminate. 

The PURFX routine is brought i n as an overlay. It operates as 
fol lows : 

1. Save MOVED and MOVES in M and Ml. 

2. Read the IDT, set B = L I BUS- I DLEN-8 , set PP=P. 

3. If PP=LIBUS+5^0, write back the IDT, read in the ADT, and go 
to step 5. 

4. Search for ID. If MEM [PPj 4 MEM [B] , set B = B-8 and repeat 
this step. Otherwise, set MEM [B + 7] = MEM [B + 7] ~ MEM [PP+2] , 
set PP=PP+3, and go back to step 3. 

5. Update ADT. If P = LJBUiLd i=5M0 , set MOVED = M, MOVES = Ml, 
write the ADT bock tc disc, set ID = max(L I BUG- i CLE,',' , LiCUS- 
ADLEN)-**, and exit. Otherwise, insert into the ADT the entry 
specified by MEM [P + 1] and MEM [P + 2], set P = P + 3, and 
repeat this step. 
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ROSTER 



The ROSTER routine prints a listing of the id codes of all active 
users. These are obtained from the ID word in the ^- TTYTABLES . 
The absence of a user is indicated by the word being zero. 
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PHONES 

The PHONES command is used to tell the I/O processor how long to 
allow the user to try to successfully log on before disconnecting 
him. It is originally assumed to be 120 seconds. It can be reset 
to from 1 to 255 seconds by the PHONES command. 
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2000B TIME SHARED BASIC LOADER 



The 2000B Time Shared Basic Loader is a separate program which runs 
on the main processor. It performs the following functions: 

1. Generate a new system from paper tape. 

2. Reload the system from mag tape following a mag tape sleep. 

3. Reload the system from disc following a sleep. 

4. Link a new system (on paper tape) with the library of an 
older system which is on the disc. 

5. Resuscitate the system following a software blowup, machine 
parity halt, operator error, etc. 

6. Dump the system to mag tape. This code is in the loader and 
is retrieved from the disc by the SLEEP command. 

The operation of the loader is straightforward and can be gleaned 
by studying the listing and the attached flowcharts. 
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SUPPLEMENTARY NOTES ON BASIC 

SYNTAX 

The general process of analyzing an input to the language processor 
Is displayed in the section on flow charts. The annotations in the listing 
explain the actions of the subroutines, while the core map and section on 
internal representation describe the objects/structures being created or 
manipulated. The BASIC syntax, in conjunction with the listing, explains 
the method of identification and recognition of legitimate BASIC statements 
from the input string. 

Phase 2 

A. Comp i lat ion 

The preliminary section of CMPLE prepares for execution of the program 
following a successful compilation. Null programs require no processing. 
If a sequence number follows the RUN (e.g., RUN - 220) the interpreter's 
program counter is set to the first statement whose sequence number equsls 
or exceeds the reference, otherwise it is set to the first statement of the 
user program. If the common area has not been allocated, ALCOM is called 
to compute the space needed and move the program accordingly. If the pro- 
gram is already compiled (SYMTB=SPTRy*0) PBPTR is set back to the first 
word following the value table (FCORE) and phase 2 simply reinitializes 
all of the variables to undefined. If the program is semi -compi led 
(SPTR=0, SYMTB-^0) we may skip building the symbol table. Otherwise FILTB 
is set to so PRNST will not terminate compilation by mistaking it for 
decompi lat ion. 

The symbol table is then built as explained in the listing (Refer to the 
flow chart for general logic flow and to BASIC Variable Storage Allocation for 
a visual example). Also, at this time statement number references are replaced 
by absolute addresses. This is facilitated by dividing the program into 32 
parts and building an 6k word table in ERSEC containing the first statement 
number and address of each part. During compilation SPTR points to the 
program word being processed. Pointers to <F I LES statements> are stored in 
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FLSTS and a count of them is kept in FILCT. Ah error in compilation will 
cause a call to DCMPL to restore the source form of the program followed 
by a call to the error routine. If after a successful compilation at 
least one <FILES statement> has been found, BASIC calls the system, which 
analyzes the <F I LES statements> and builds the file table, filling in the 
first, second, and fourth words of each entry. 

The symbol routine has two entry points: SSYMT is used for functions 
and simple variables and ASYMT is used for array and string variables. Because 
the dimensionality of an array variable may not be known locally (e.g., MAT A = 
some symbols may have two entries. If this is the case, the "don't know" entry 
will always be farther down in the table (i.e., have a higher core address) 
than its dimensioned counterpart. 

B. Value 



VALUE is responsible for detecting deficiencies in the symbol table, 
allocating storage for the values of symbols (i.e.. building the value table 
and common area), and initializing the values of all variables except those 
in common. Only the last of these functions is performed if a program is 
already compiled when a RUN command is received. The process of building 
the value table is described in the listing. Note that for arrays in common, 
the declared dimensions in the <C0M statement* are checked against those in 
the common area. If they match and the dynamic dimensions are consistent 
(i.e., less than or equal to the declared ones) then the values are left 
alone. Otherwise they are set to undefined and both sets of dimensions are 
set equal to those in the <C0M statements For strings, the physical length 
is checked against the declared length and the logical length tested to be 
less than or equal to the physical length. If these tests fail the physical 
length is set to the declared length and the logical length is set to zero. 
Simple variables in common are left untouched. 

Several errors may be encountered while building the value table. The 
occurrence of a null symbol (bit pattern of 0) in the symbol table means 
that an array symbol is used in the program, but never in such a way that its 
dimensionality can be determined. If the second word of a function entry is 
zero, no <DEF statement> for that function appears in the program. Arrays 
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of more than 2500 elements are not allowed. For all errors the program is 
decompiled before the call to the error routine. 

C. Decompi lat i on 

Programs are decompiled when any error occurs during compilation, 
building of the file table, building of the value table, or when the program 
is to be modified or saved in the user library. Since in the first of these 
only a portion of the program is compiled, the pointer SPTR is used to determine 
how much to be decompiled (A fully compiled program always has SPTR pointing 
to the first word following the program). The program is moved so that 
SPROG=PBUFF (no common area). The process is explained in the listing. 

D. The routine PRNST 

PRNST is used by both CMPLE and DCMPL to scan the program and skip over 
those portions not affected by compiling. PRNST assumes responsibility for 
recognizing extra ^FILES statements> and <C0M statements> that are out of 
order. If such an error condition is encountered, SPTR is set to point 
before the statement which caused the error (it hasn't been compiled). Then 
PRNST calls DCMPL, which calls PRNST. The statement causing the error is 
not seen this time, so PRNST and DCMPL can exit correctly. 

Ill EXECUTION 

A. Main Loop 

Upon completion of the value assignment in phase 2, control transfers to 
XEC. FCORE saves a pointer to the first word following the value table (used 
in repeated RUNS of a program). After printing the program name (unless the 
program was CHAINED to) XEC proceeds to initialize the file table. A 64-word 
buffer is allocated for each file and pointers to the word following it are 
placed in words 5 and 6 of the file table. The disc address of the record 
in the buffer (word 3) is set to -1 to indicate that no record is present. 
Word 7 is set to 0, indicating that no end-of- record/end-of-f i le exit has 
been specified. If the file is read-only a message to this effect is 
printed, following the program name, unless the program was CHAINED to. 



173 



Following the preparation of files the initial execution status is set. 
The initial execution stacks are claimed from free user space and pointers 
are set to the first constant of the first <DATA statement>, if such exists. 
The internal print position counter (CHRCT) is set to zero by outputting a 
carriage return. Phase 2 has already set the BASIC program pointer (PRGCT) 
to the first statement to be executed. 

Execution of a statement simulates the execution of an instruction on 
a 'BASIC machine 1 . The sequence number of the statement referenced by PRGCT 
is saved for possible use by the error routine. PRGCT is advanced to 
reference the following statement. The type of the current statement is 
used to branch to the appropriate routine via a jump table. Individual 
statement routines return to the top of the loop. 

B. Statement execution 

<LET statement> execution consists simply of evaluating the formula, 
which is known to cents in 3t lesst one 6ss • n nment o n er3tor Bnd to h^'^ t vr, e 
compatibility (numeric vs. string) by its acceptance by phase 1. 

<IF statement> execution forks on the symbol following the IF. The 
construction 'IF END' causes the following: the file reference is evaluated 
and tested for existence as one of the program's requested files; if a 
legitimate reference, the statement reference following the THEN is placed 
in the end-of-f i le word of the file's table entry. If not 'IF END', the 
decision formula is evaluated and if true the statement reference replaces 
the value of the interpreter's program counter, PRGCT, via the GOTO mechanism. 

<G0T0 statement> execution consists of choosing a statement reference 
to replace the program counter. For simple GOTO's this is done trivially; 
for multi-branch GOTO's this is done by evaluating the index formula and 
choosing the statement reference in the corresponding list position. If the 
index value lies outside the list of statement references, the program counter 
remains unchanged. 
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<GOSUB statements execution follows the pattern for the GOTO except 
that after choosing the new value for the program counter, the old value 
is saved on the return stack (stack overflow generating an error condition). 

<F0R statement> execution opens an active program loop. The for-stack 
is searched for an entry with the same for-var iab le ; if found, the entry is 
eliminated (i.e., the previous <F0R statement> with this for variable is 
closed). A new entry is set on top of the for-stack (extending the for-stack 
by six words if no entry was eliminated) and a pointer to the for-vari ab le ' s 
value entry is put into word 1. Since the first formula in the FOR contains 
an assignment operator, the formula evaluator, FORMX, initializes the for- 
variable when it determines the initial value. A reference to the statement 
following the <F0R statement> is put into word 6 of the for-stack entry (the 
start-of-loop address). Words 2 and 3 save the result of evaluating the 
limit value formula. If a step size formula appears explicitly it is evalu- 
ated, otherwise 1.0 is taken as the step size. In either case the value of 
the step size is left in words k and 5 of the for-stack entry. The program 
counter is set to the statement following the associated <NEXT statement> 
and control transfers to the <NEXT statement> execution code to compare the 
initial and limit values (see flow chart). 

<NEXT statement> execution decides whether to iterate a loop or close it. 
The for-stack is searched for an entry with the same for-vari able. If none 
is found the statement is ignored and control passes to the following statement. 
If the entry is found, any entries above it (more recent entries) are eliminated 
i.e., they are assumed to belong to nested loops which were not closed by 
exceeding their limit value but exited otherwise. The value of the for-variable 
is then incremented by the step size and the new value tested by subtracting 
the limit value and using the sign of the step size to determine whether a 
non-negative or non-positive result indicates 'success'. If the result is 
'success' , the program counter is loaded from word 6 or the for-stack entry 
(the reference to the statement following the <F0R STATEMENT>) . If the result 
is not 'success', the for-stack entry is eliminated. At this point the program 
counter already points to the statement fol laving the <NEXT statement> so exit 
is simply to the main execution loop. 
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<RETURN statements execution merely loads the program counter from the 
top entry of the return stack. An error condition is generated if the return 
stack is empty. 

<INPUT statement> execution assigns values to the input list for both 
INPUT and MAT INPUT. INITF = and MCNT is meaningless when executing an 
<INPUT statement; For MAT INPUT, INITF = -1 and MCNT holds the number 
(in 2's complement) of elements of the current array as yet unassigned values. 
I FCNT holds the ordinal number of'the current item in the current record 
(Note that I FCNT is not cumulative over the entire execution of a statement 
requesting input unless the request is met entirely by one line from the 
teletype) . 

The general approach in execution is to determine the address and type 
of a variable in the input list and then attempt to satisfy it from the 
input record. When an error occurs in the above process, it is explained 
along with any necessary corrective action and the value assignment is attempted 
again, so that errors in the input record will not terminate program execution. 
For simple input if the next variable in the list is of numeric type its value 
table address is placed into SBPTR; for array input the base address of the 
array is put into SBPTR. After filling a simple variable the next variable 
from the list is taken and a new address generated; after filling an array 
element SBPTR has been advanced to the next element by the numeric input 
routine so no new address need be calculated. When MCNT rolls over to zero 
(an array has been filled) control exits to the MAT INPUT code, which may 
return with another array's base address in SBPTR and MCNT reset appropriately. 
If the input record is empty but the variable list is not yet exhausted a 
request for additional input is made (signified by '??' rather than the 
initial '?'). SERR is needed as a flag to indicate if under/overflow occurred 
while converting the latest numeric input, since the error message will have 
destroyed any additional information in the input record. When looking for a 
number, the input record is scanned for the first sign (+ or -) , digit, or 
decimal point, which begins the number. Any other characters will be ignored 
except the ", which will generate a recoverable error. 
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String input requires fairly complicated analysis of the data transfer. 
If the string variable does not specify the transfer length (does not have a 
double subscript), then the next string in the input record is transferred in 
its entirety and the logical length of the variable set appropriately. if the' 
next string does not fit, a message is printed and a new string value requested. 
If the string variable specifies the transfer length then exactly that much 
of the next string in the input record will be transferred, either truncated or 
extended by blanks as necessary to achieve the specified length. The 'next 
string' in the input record begins with the next non-blank character or, if it 
is a ", the following character, blanks included. The string ends with the 
first " (which is not part of the string) encountered or with the carriage 
return (also not part of the string) if no " appears. 

Every data item in the input record must be followed by a comma or 
carriage return and a comma must be followed by another data item. Failure 
to observe the above will generate recoverable errors. INTMP holds the 
type of data being sought, INTMP = for a number or INTMP # for a string, 
and is used by the error recovery code to prepare for the entry. 

<ENTER statement> execution assigns a value to a string variable or a 
simple variable. If a '#' follows the ENTER, the user's port number (0-31) 
is assigned to the first variable. The <ENTER statement> is timed and the 
length of time it took to respond (in seconds) is assigned to another variable. 
The input analysis proceeds much like an input statement with one variable, 
with the notable exception that no error messages are printed. Instead, the 
response time variable is negated if an error occurs. If the user does not 
respond within the alloted time, the response time variable is set to -256. 
This is non-ambiguous since response times are between 1 and 255 seconds 
inclusive. Also, for string input leading blanks are non stripped off and 
quote marks are allowed as characters. 

<READ statement> execution assigns values to variables in the list. 
FDATA is primed to obtain values from either a file of the <DATA statements, 
depending on the presence or lack of a file reference following the READ. 
A mismatch in type between the variable and the next data item, or a string 
too long to fit into its designated destination, will generate an error 
and terminate execution. 



<PRINT statements execution consists of identifying items in the print 
list and sending the appropriate media equivalent to the teletype or disc 
file. An initial file reference identifies the statement as a file write 
and turns off the end-of-line mode; its absence identifies and teletype write 
and turns on the end-of-line mode. A comma or semicolon turns off the 
end-of-line mode and generates enough blanks to advance to the next field 
of 15 characters, if a teletype write. A literal string is written as a string 
of characters, less quotes, and turns on the end-of-line mode if a teletype 
write. An END writes an end-of-file mark on the file; it cannot occur in a 
teletype write. Formulas in the print string are evaluated and the results 
examined. Formulas which are string variables evaluate to their contents, 
which is then treated as a literal string. If not a string variable but 
within a file write statement, the floating point value of the formula is 
written on the file in its two-word binary representation. If a teletype 
write, floating point values are converted to an ASCII character string of the 
decimal equivalent. TAB can only occur in a teletype write; the evaluation 
of the TAB itself produces the desired action, so the value returned is 
thrown away, along with a following comma if one exits. For a teletype write 
all formulas turn on the end-of-line mode. If the end-of-line mode is on 
after processing the last print item, a carriage return-line feed is printed 
(This can only occur in a teletype write.). 

Before writing a quantity BASIC insures that sufficient space is 
available to accommodate it. CHRCT keeps track of the current print position 
on the teletype line (0-71). If the character string sent to the teletype 
would require non-blank characters to be printed past position 71, a 
carriage return-line feed is output first and CHRCT set to 0. If an item 
sent to a file requires more words than remain in the current record, BASIC 
automatically advances to the next record if in serial mode or exits to the 
end-of-record code if in record mode. 

<REST0RE statement> execution resets the pointers to the DATA block. 
Beginning at the statement specified, or at the first statement in the program 
if none is specified, the pointers are set to the first <DATA statement> 
found, or to the out-of-data condition if none is found. 
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<END statements and <STOP statement> execution terminates the program 
run. Since each requested file has a 64-word buffer in core, the last recorc 
written on a file does not exist on the disc in its updated form. Thus END 
and STOP must force the buffer of each read/write file onto its proper 
disc sector. Following this, the word DONE is sent to the teletype and 
control exits to the scheduler. 

<CHAIN statement> execution consists of calling the CHAIN library 
routine to get the named program from the disc and start execution of it. 

<MAT statement> execution involves many disparate tasks. The forms 
of the <MAT statement> may be classified as array I/O, array assignment, 
array initialization, and the array functions TRN and I NV . For conciseness 
in coding, all forms other than array I/O use some common program segments. 

Array I/O prepares each array in the list in the same fashion. SBPTR is 
set to the dynamic dimensions of the array (base address -2) and the operator 
following the array identifier is picked up for examination. At this point 
MAT PRINT follows a separate path than MAT READ and MAT INPUT. The following 
operator is noted as spacing the elements (comma or end-of-statement) or packing 
them (semicolon). VCHK examines the array and generates an error if any of 
its elements have value 'undefined 1 . The dynamic row and column lengths are 
saved in 2's complement. If the MAT PRINT references a file, the array 
elements are written one by one in rows, each element in its two-word binary 
form. If the MAT PRINT references the teletype, rows are double spaced and 
the elements within a row are spaced or packed as noted above, each element in 
its ASCII decimal form. Both MAT READ and MAT INPUT redimension the array if 
the following operator is a left bracket (i.e., begins a matrix subscript). 
MCNT is set to the number of elements in the array, in 2's complement. 
MAT READ calls FDATA for element values while MAT INPUT transfers to the 
<INPUT STATEMENT> execution to obtain element values. MT0 acts as a flag for 
MAT INPUT, differentiating the first call for input from subsequent calls 
and saving the input character following the last element value used from the 
input record. After completing I/O on an array, a common section of code 
prepares the next array in the iist or, if no more remain, terminates the 
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statement execution. MAT INPUT returns to the input code to clean up there, 
MAT PRINT and MAT READ return directly to the main execution loop. 

Array assignment consists of preparing the destination and source arrays 

and executing a loop which assigns the destination array elements one by one. 
The general procedure is to assign a jump to the element computation code to 
MOP, an exit address to MEXIT to use after completing the destination array, 
and a count of the elements to MCNT, in 2's complement. The code to compute an 
element returns to ML0P1 , ML0P2, or ML0P3 depending on the number of arrays 
involved which require updating of the element address. Each operation checks 
the dimensions of the arrays involved to insure that the operation is well- 
defined; and all elements of the source matrices are checked to make sure none 
have value 'undefined'. Matrix multiplication does not use the element 
computation loop, instead it uses row and column counters to tell when it is 
done and computes destination array elements by inner products of the rows 
and columns of its source matrices. 

Array initialization also uses the element computation loop. The 
initialization program first redimensions the destination array (if a 
matrix subscript is given) and then chooses the appropriate constant for the 
element values. IDN acts like ZER except that it insists that the destination 
array be 'square' and sets a special counter to choose 1.0 for the value of 
main diagonal elements. 

TRN and INV are handled apart from the other matrix functions. For 
both of these, the elements of the source matrix are checked against the 
'undefined value 1 . The source and destination matrices are then checked for 
transpositional compatibility. If TRN, then proceed to transfer the columns 
of the source matrix to the rows of the destination matrix. 

INV uses the Gauss-Jordan algorithm with row pivoting. This procedure 
converts a copy of the source matrix into the identity matrix and converts 
an identity matrix into the inverse by applying the same set of operations 
to both. Since the source matrix is destroyed in the process, it is first 
copied into free user space and the copy treated thereafter as the source. A 
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side effect of the copying produces the element of largest absolute value, wb ' S 
is used to compute a lower bound on the allowable magnitude of pivot elements. 
INV then calls I DN to set the destination matrix to an identity matrix, having 
the side effect of checking that the matrix is square. 

Diagonal i zation of the source matrix and production of the inverse 
now proceeds on a row-by-row basis. The next unreduced column of the source 
is searched for the pivot element (the largest in magnitude). If necessary, 
rows are swapped to put the pivot element on the main diagonal (the correspond- 
ing rows of the destination matrix must also be swapped). If the pivot 
element is smaller in magnitude than the previously computed lower bound, the 
matrix is too nearly singular to invert and execution is terminated. Other- 
wise, the pivot rows of both matrices are divided through by the pivot element. 
Now all other elements in the pivot column are eliminated by subtracting the 
appropriate multiple of the pivot row from each of the other rows. Advantage 
is taken of those pivot column elements which are already zero and of the 
fact that elements of the pivot row to the left of the pivot column have 
been set to zero by previous steps. After di agonal i zati on of the source 
matrix and consequent creation of the inverse, the user space occupied by 
the source copy is released. 

The other statement types are declarative in nature. Execution of them 
consists solely of skipping over to the statement following. 
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NOTES ON THE ERROR ROUTINES 

Errors are handled routine SERR, reached by a jump through the base 
page table beginning at SERRS. A JSB SERRS + i,l signifies detection of 
error j_. The alternative bases RERRS and WERRS are conveniences to denote 
subsections of the table used for run-time errors and warning-only errors. 
The actions taken by SERR are explained in the listing; but notice that the 
'BAD INPUT' error is singled out, its processing is completed by the input 
execution routine upon return from SERR. 

Syntax errors detected while in tape mode are handled by accepting 
error psuedo-statements in place of the erroneous statements. Since these 
psuedo-statements will be replaced by any subsequently received statements 
with the same line number, provision is made in FNDPS, which returns the 
location of a statement when given its sequence number, to decrement the 
error counter (ERRCT) whenever the statement found is an error psuedo- 
statement (an error psuedo-statement will only be found by FNDPS when 
another statement with the same sequence number is ready to replace it). 
Over/underflows detected during number conversions in syntax mode cause 
warning messages to be issued only after accepting the statement, if it 
is otherwise correct. Since no printing can be done while in tape mode, 
the routine CHOUF suppresses setting of the flag and these potential 
errors are not reported when in tape mode. 
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BASIC Core Maps 



SYNTAX (Phase 1) 










System Base Page 


IKF-*. . 










Subroutine Entry 




Points and User Variables 


PBUFF-+ 






Previously - entered 




Program Statements 


CRi|rA_v . 




SBPTR+ 


Current Statement 




cvwTn-i- . 


Buffer (105 Words) 


a t in 1 1£* 




SSTAK-> 


Syntax Stack 




1 UAI K-v . 


Available User Space 


LWHUS^ 






BASIC and System 


37777 





User Swap Area 
(Shktt Words) 



Pointers 

USE Fixed, first word of 

user swap area. 

PBUFF Fixed, first word of 
program space. 

SPROG Fixed, first word of 
program. 

SBUFA Variable, first word of 
statement being syntaxed. 

PBPTR Variable, first word of 

program space not used by 
previously accepted 
program statements. 

bbPiR Variable, first word 
not used by statement 
being syntaxed. 

SYNTZ Variable, first word 
of syntax stack. 

SSTAK Variable, last word of 
syntax stack. 

LWAUS Fixed, first, word not 
in user swap area. 
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COMPILATION (Phase I I) 



Comp i 1 at ion 




USE-*- 



PBUFF+ 

SPR0G+ 
SPTR-* 



LWAUS+ 



37777 



System Base 


Page 


Subroutine Entry 
Points & User 
Vari ables 


Common Area 


BASIC 
Program 


Symbol 
Table 


Avai lable 
User Space 


BASIC and 
system 



-SYMTB 



-PBPTR 



Value Storage Allocation 



USE->- 



PBUFF+ 
SPR0G+ 

SPTR=SYMTB+ 



LWAUS- 



37777 



System Base Page 



Subroutine Entry 
Points & User 
Vari ables 



Common Area 



BASIC 
Program 



Symbol 
Table 



File Table 



Value Table 



Avai lable 
User Space 



BASIC and 
System 



^FILTB 
-f-VALTB 

-<-PBPTR 



SPROG - Variable, first word of program 

SYMTB - Variable, first word of symbol table. 

SPTR - Variable, word of program being processed. 

FILTB - Variable, first word of file table. 

VALTB - Variable, first word of symbol value table 

(FILTB = VALTB if no <F I LES statement> is in program) 

PBPTR - Variable, first word available of user space. 

SYMTB and SPTR are not changed after compilation. 

FILTB and VALTB are not changed after allocating value storage. 
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EXECUTION (Phase III) 



USE- 



PBUFF- 
SPROG- 

SYMTB- 
FILTB- 



VALTB-* 



LWAUS^ 



37777 



System Base Page 



Subroutine Entry 
Points & User 
Variables 



Common Area 



BASIC 
Program 



Symbol Table 



Fi le Table 



Value Table 



9 Worcs Return Stack 



For-Stack 



Temporary Stack 



Operator/Operand 
Stack 



Avai lable 
User Space 



BASIC and 
System 



^FCORE 
j/RTRNQ 
+-RTNST 
-^FORQ 

+-F0RST 

^TMPST 

+OPTRQ 
-HDPDST 
^-PBPTR 



FCORE - Variable, first word not used ' 
Phase ! I 

RTRNQ - Variable, bottom of return stack 
(first word preceding return stac- 

RTNST - Variable, top of return stack 

FORQ - Variable, bottom of for-stack 

(sixth word preceding for-stack) 

FORST - Variable, top of for-stack 

(points to latest 6-word entry) 

TMPST - Variable, top of temporary stack 
(points to latest 2-word entry) 

OPTRQ - Variable, bottom of operator stac- 

OPDST - Variable, top of operand stack. 

PBPTR - Variable, top of operator stack. 



FCORE, RTRNQ, and FORQ are not changed after initiating execution. 

Entries on the operator and operand stack are one word each and interleave 
(i.e., alternate words belong to one stack). All stacks beyond the return stack 
grow and shrink as needed so long as user space is available. 
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BASIC statements are represented internally by the se quen ce number followed 
"by the length in words (including the sequence number and length words) f o 1 lowed 
by the statement body. The statement body is composed almost entirely of operator- 
operand pairs which occupy from one to three words each. Null operands and 
operators are used when necessary to maintain the operator-operand correspondence. 
The operator resides in bits 14-9 of a word; the operand uses bit 15, bits 8-0, 
and sometimes whole additional words immediately following. 






Operator 









Operator 


— ■ ■ -i ■ ■ 

Name ! 



Operator 



Name 






Operator 


Name j 4- 1 6„ 



'Variable' Operands 

Bits 8-0 are generally divided 
into two fields as follows: 
a name field (bits 8-4) and 
a type field (bits 3-0) . The 
name field holds a value 
between 1 and 32p corresponding 
to A-Z (for functions, 
corresponding to FNA through 
FNZ). A type of identifies 
a string variable (e.g. 3,0 
represents C$). Types 1 and 2 
identify array variables of dimensionality one and two respectively (e.g. 4,2 
represents D[*,*]) while type 3 identifies an array variable whose dimensionality 
cannot be determined by its immediate context. Type 4 identifies a simple variable 
with no digit (e.g. 1,4 represents A) while types 5 - l6n identify simple variables 
whose names include the digit 0~9 1Q respectively (e.g. 6,7 represents F2) . Type 
1 7o identifies a programmer-defined function (e.g. 32„, 1 7o represents FNZ) . 






Operator 


Name, 1 7o 



Nul 1 Operand 
String Variable 
Array Variable 
Simple Variable 
Function Variable 
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'Constant' Operands 



1 


Operator 


1 > , ', 
Name ; 4- 1 6q 




1 


Operator 


Name .' 1 7o 

I 8 | 




1 


Operator 


3 


Bi nary 


1 nteger 


i 
• 

i 


i 


Bi nary 


Integer i 




1 


Operator 





High M, 


anti ssa 


Low Mant 


Exponent 







1 (") 


-72 10 J 


t * 


Character 


Character 



Parameter 



Pre-defined Function 



Formal Dimension/ 

Branch Address 
List 



Numerical Constant 



A parameter (which can 
only appear inside a 
<DEF statement>) differs 
from a simple variable 
only in that bit 15 is 
set. The name of a pre- 
defined function may range, 
in the standard system, 
from 1 to 1 7n or 24q to 
30 g (TAB to TIM or ZER to 
TRN). A flagged (bit 15 
set) operand of 3 identifies 
either a formal dimension 

in a <D I M statement> or <CCM 
statement> (value in following 
word) or a branch address list 
(one or more statement sequer- - 

numbers in the following wt, .s 
A flagged operand of indicates 
that the following two words hoi 
a floating-point constant (all 
numerical constants within a 
program are so represented). The operator with internal code 1 is ", which signals the 
start of a string constant. The operand portion of the word has a value from to 72, ,*> 
indicating the number of characters in the constant. The string follows, two characters 
per word, and the closing " is not explicitly represented internally. 



String Constant 
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The table below gives the internal representation of the BASIC operators. 
Those operators which manipulate the formula evaluation stack during execution 
have associated priorities. All numbers are in octal notation. 



CODE 


1 
2 

3 
4 
5 
6 

7 

10 
11 
12 

13 
14 

15 
16 

17 
20 
21 
22 

23 
24 

25 



PRIORITY ASCII 



BASIC Operators 
CODE PRIORITY 



ASCI 



CODE 



ASCI 



1 
13(1) 
13(0 
11 
11 

2 

2 

7 

7 

10 
10 
12 

5 



(end-of- 
f ormul a) 



26 
27 
30 
31 

(file) 32 
unused; 33 
unused) 3^ 
unused) 35 
36 
37 
40 
41 
42 
43 
44 
45 
46 
47 
50 
51 
52 

53 



+ (unary) 

- (unary) 

, (subscri pt) 

'(assignment; 

+ 



/ 
t 
> 



5 
5 
5 



4 

3 
6 
6 
5 
5 
5 
11 



< 




54 


FOR 


# 




55 


NEXT 


= (equa 


1) 


56 


GOSUB 


(unuse 


d) 


57 


RETURN 


(unuse 


d) 


60 


END 


AND 




61 


STOP 


OR 




62 


DATA 


MIN 




63 


INPUT 


MAX 




64 


READ 


<> 




65 


PRINT 


>= 




66 


RESTORE 


<= 




67 


MAT 


NOT 




70 


FILES 


(unuse 


id) 


71 


CHAIN 


(unused) 


72 


ENTER 


COM 




73 


' IMPLIED' LET 


LET 




74 


OF 


DIM 




75 


THEN 


DEF 




76 


TO 


' REM 




77 


STEP 


GOTO 








IF 









lfiR 



Some examples of BASIC statements in their internal form are given below. Note 
that actual function parameter formulas, <DEF statements> formulas, and subscript 
formulas appearing in <MAT statements> require end-of-fcrmul a operators to signal 
their end whereas most formulas end either with the first operator which does not 
manipulate the formula evaluation stack or with the end of the statement. Note 
also that constants are considered signed only within a <DATA statement>. ASCII 
numbers are decimal, internal numbers are octal in the presentation below. 



10 LET Wl = Y = (B = C) t 3*A[1,J+K] 

sequence number 
length 
LET Wl 
Y 



( B 

C 

) 

+ 

3.0 

*A 
[1 

,J 
+ K 

(end-of-formul a) 
] 





12 






21 






| 46 


27 


6 





17 


31 


4 





'7 










13 


2 


4 





30 


3 


4 





10 







1 


24 







030000 






000004 









22 


1 


2 





12 


11 


4 





16 


12 


4 





20 


13 


4 
















11 








20 DIM A[5], C[6,12J 

24 
14 



0|47 
1 12 



0|11 
01 2 
12 



1 j 1 

I 3 
5 

i* 
3 J2 

13 
6 

16! [3 

14 
Hi 10 
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30 DEF FNC (X) = X + A0 



40 REM ARK 



36 

7 






50 


3 | 


1 


13 


30 





10 




1 


17 


30 




20 


i ! 











17 
4 



4 
5 




50 
5 

[51 i^0 

0*10522 
045400 



50 GOTO A OF 10, 20, 30 



60 DATA -1 , "ABC 



62 
7 

52 ; l 



! 4 



12 

24 
36 

70 MAT READ #K;AL 1 ] 



74 
11 



62 






000000 



040502 
041400 











106 
11 

67 
64 

4 

3 



13 
1. 



12 111 



11 





4 
1 

4 
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BASIC Variable Storage Allocation 



PROGRAM FRAGMENT 



'" ( 




DEF 


FNC ; 


~T 


X j 

! 




SYMBOL TABLE FRAGMENT 



FNC 



D3 



A[*] 



A[] 



B$ 



VALUE TABLE FRAGMENT 



dimens ional i ty 



dimens i onal i ty 
local ly unknown 



A[l] 



A[2] 



A[3] 



060000 



000004 



100000 



000000 



040000 



000002 



000000 



000000 




value of 
simple variable 
declared 
dimens ions 
dynami c 
dimens ions 



act i ve 

elements 



inact i ve 
element 



physical length/ 
logical length 



character 
stri ng 



1P1 



The symbol table consists of two-word entries, one for each unique symbol occurri 
in the user's program. The first word of an entry is the internal representation of 
the symbol as previously described. The second word of the entry is a pointer to th> 
value of the symbol. For a programmer-defined function the value is the defining 
formula in the <DEF statements The value of a simple variable is a two-word 
floating point number. The value pointer of an array is its base address (i.e. the 
address of its first element); when an array is dynamically redimens ioned to occupy 
less than its physically allocated storage, it occupies a contiguous block justified 
to the low core portion of its element space. Since array symbols may not have 
dimensionality locally defined (e.g. MAT A=B), array symbols may have a "don't know" 
entry in the symbol table in addition to the dimensioned entry. Both entries have 
the same value pointer. The declared and dynamic dimensions occupy the four words 
preceding the element space in the value table. The value of a string is also its 
base address. A string is a character array (packed two elements per word in contra 
to the two words per element for numerical arrays). Its physical (declared) length 
and logical (dynamic) length occupy the word immediately preceding its value space. 

The value table and common area are simply the concatenation of the values for 
the symbols in the program, excepting programmer-defined functions. 
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FILE TABLE ENTRY 



read-only- 
bit 

dirty record- 
bit 



number of 
records in file 



disc address of last 
logical record in file 



disc address of record 
in file buffer 



EOF/EOR exi t address 



FILE BUFFER 



file base disc address 




Gk words 



The file table consists of one 
seven-word entry for each file in 
the <F I LES statements Bit 15 
of the first word is set if the 
file was busy when requested or i 
a public file (available on a rea 
only basis). Bit ]h of the first 
word is set when an item is store 
in the buffer, so that only recor 
which are changed will be written 
back to the disc. A 6^-word 
buffer is associated with each fi 
entry and is accessed through 
pointers in its file entry. An 
intr-record pointer designates th 

*- ...*-•-,- - C *_l I * I. _ 

llcAL pui LIUM Ul Lilt; i SLl/l -J LU u t; 

written or read. A fixed poi 
to the first word not in the 
buffer acts as a bound on the 
intra-buffer pointer. 



FILE CONTENTS 

There are k data types possible in a file. A string has bit 9 = 1 and the 
length in characters in the lowest 7 bits of the first word, followed by the 
string packed 2 characters per word. A two-word floating point number has the 
upper two bits of the first word different, except for a zero, which has both 
words zero. An end-of-f i le is a -1, and an end-of- record is a -2, in the first 
word. 
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BASIC Run-Time Stacks 



Return Stack 



RTRNCr* 



RTNSTV 




9 words 



For-Stack Entry 



pointer to value 
of for-variable 



imit |) two-word 



value 'I floating point 

step '| numbers 



s ize 



J 



Program Fragment 



<F0R statement^ 



succeedi ng 
statement 



The return stack is of fixed 
length, holding from to 9 
one-word entries at any time. 
An entry is the absolute address 
of the statement following the 
GOSUB which placed the entry on 
the stack. 



The for-stack is of variable 
length, containing one six-v/ord 
entry for each for-loop which 
is currently active. Since the 
limit value and step size are 
kept in the entry, they may not 
be changed within the for-loop. 
The value of the for-variable is 
the one kept in the value table, 
so this may be altered by 
statements within the for-loop. 
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OPERATOR/OPERAND STACK FRAGMENTS 



LET A = B+C*D 



I Temporary 
Stack 



• A 



6PTRQ-+ (unused) 



; V 



B 



start-of 
formula operator 

7~c ! 



0PDST+ 



y 



(unused) 



PBPTRh 



r 



\ avai Table user 
space 



LWAUS^ 



TttPST* 




OPTRQ- 



0PDST+ 



-fr 



PBPTR-^ 



LWAUS- 



floating point 
number 



A 
(unused) 



• 



B+C-D 



start-of- 
formula operator 



(unused) 



avai lable user 
space 



OPDST- 



OPTRC^ 




TEMPORARY 
STACK 



TEMPORARY 
STACK 



-PBPTR 



All operands (checked words) are addresses (i.e., C represents a pointer to 
the value of the simple variable C). Bits 7 " of an operator entry contain the 
iperators identifying code (See 'Basic Operators' Table) while bits 15"8 contain 
the operator's priority. Note the alternate-word structure of the stacks. The 
temporary stack holds intermediate values during the formula evaluation. 
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BASIC Language Processor Tables 

The two areas of core labelled SBJTB and USER contain the mechanism allowing 
different users to exercise different portions of the language processor without 
interference. The language processor makes its subroutine calls to the labels in 
the area beginning with USER. The word following a subroutine entry point is an 
indirect jump through the appropriate address in the area following SBJTB. When 
a user is displaced by the system, his registers are saved at USER and the area of 
core from USER to PBPTR, I inclusive is dumped onto his track of the disc. Thus, 
a complete record of the language processor's status with respect to him is 
preserved. The only thing particular to a user which remains when he is swapped 
out is his own teletype table. 

The tables headed by PDFTB (which must be in base page), SYNTB, XECTB, and 
FOJT are jump tables. The method in the last three cases is to compute a decision 
number, add the base address of the table, and transfer through the entry thus 
designated. The pre-defined function table is used by the formula evaluator to 
enter the code for evaluating pre-defined functions. 

The tables headed by QUOTE and MCBOS have several uses. Their entries are 
explained in the listing and their use will be explained in thos routines which 
access them. The Error Jump Table (at SERRS) is explained along with the error 
routines. 
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SYntax 
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SYNTAX REQUIREMENTS OF TSB 



LEGEND 

::= "is defined as. . ." 

| "or" 
< > enclose an element of Time Shared BASIC 



LANGUAGE RULES 



1. Exponents have 1 or 2 digit integers only. 

2. A <parameter> primary appears only in the defining formula of a 
<DEF statements 

3. A <sequence number> must lie between 1 and 9999 inclusive. 

4. An array bound n^ust lie between 1 and' 9999 inclusive; e string 
variable bound must lie between 1 and 72 inclusive. 

5. The character string for a <REM statement> may include the 
character " . 

6. An array may not be transposed into itself, nor may it be both 
an operand and the result of a matrix multiplication. 



Note: Parentheses , (), and square brackets, [], are accepted 
interchangeably by the syntax analyzer. 

Continued on the next page. 
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SYNTAX REQUIREMENTS OF TSB 



<constant> 
<number> 

<decimal number> 
<integer> 
<digit> 

<exponent part> 
<literal string> 
<character string> 
<character> 

<variable> 

<simple variable> 

<letter> , 

<subscripted variable> 

<sublist> 

<string variable> 

<string simple variable> 

<expression> 

<conjunction> 

<relation> 

.<minmax> 

.<sum> 

<term> 

<subterm> 



<number>|+<number>|-<number>[ <literal string> 

<decirr.al number>| <decimal number><exponent part> 

<integer>| <integer>. [ <integer>.<integer>| .<ir.teger> 

<digit>| <integer><digit> 

0|1|2|3[4|5|6|7|8|9 

E<integer>|E+<integer>|E-integer (see rule l) 

"<character string>" 

<character>| <character string><character> 

any ASCII character except null, line feed, return, x-off, 
alt-mode, escape, «-, " , and rubout 

<simple variable>| <subscripted variable> 

<letter>| <letter><digit> 

A|B|C|D|E|F|G|H|I|J|K'|L|M|N|0|P|Q|R|S|T|U|V|W|X|Y|Z 

<letter>(<sublist>) 

<expression>| <expression>,<expression> 

<string simple variable>| <string simple variable>(<subl ist 

<letter>$ 

<conjunction> | <expression>OR<conjunction> 

<relation>| <conjunction>AND<relation> 

<minmax>[ <minmax><relational operator><minmax> 

<sum>| <minmax>MIN<sum>| <minmax>MAX<sum> 

<term>| <sum>+<term>| <sum>-<term> 

<subterm>|<term>*<subterm> |<term>/<subterm> 
<denial>| <signed factor> 
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SYNTAX REQUIREMENTS OF TSB , CONTINUED 



<dem"al> 
<signed factor> 
<factor> 
<primary> 

<relational operator> 
<parameter> 
functional > 

<function identifier> 
<pre-defined function> 
<source string> 
<destination string> 
<file reference> 
<file formula> 
<record formula> 
<array identifier 
<sequence number> 
<program statement> 
<BASIC statement> 



<LET statement> 



<leftpart> 
<IF statement 

<decision expression> 



<f actor> | N0T<f actor> 

+<f actor> | -<factor> 

<primary>| <factor>-Kprimary> 

<variab!e> j <number>| <functional>| <parameter> (rule 2) 
(<expression>) 

<I<=H#I<>I>=I> 
. <letter>| <letter><digit> 

<f unction identifier>(<expression>) | 
<pre-defined function>(<expression>) | 
LEN (<string simple variable>) 

FN <letter> 

SIN | COS J TAN | ATN | EXP [ LOG | ABS 1 SQR | INT | RND | SGN | TYP | TIM 

<string variable>| <1 iteral string> 

<string variable> 

#<file formula>|ir<file formula>,<record formula> 

<expression> 

<expression> 

<letter> 

<integer> (see rule 3) 

<sequence number><BASIC statement>carriage return 

<LET statement>! <IF statement> j <G0T0 statement>| 
<G0SUB statement I <RETURN statement | <F0R statement | 
<NEXT statement^' <ST0P statement I <END statement;- 1 



<DATA statement> | <READ statement>|< 

<ENTER statement I <PRINT statements 

<REST0RE statement^ >DIK statement^ 

<DEF statement>| <FILES statement | <REM statement> 

<CHAIN statements I <MAT staten:ent> 



NPUT statement> 
<C0M statement> 



LET <leftpart><expression> j 

LET <destination string>=<source string>| 

<leftpart><expression> i 

<destination string>=<source string> 

<variable>=| <leftpart><variable>= 

IF<decision expression>THEN<sequence number> 
IF END £<file formula>THEN<sequence number> 

<expression>| 

<comparison string 1 xrelational operator> 

<comparison string 2> 
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SYNTAX REQUIREMENTS OF TSB , CONTINUED 



comparison string 1> 
<compariscn string 2> 

<G0T0 statement> 

<sequence list> 
<G0SUB statements 

<RETURN statement 
<F0R statement> 

<for variable> 
<initial value> 
<final value> 
<step size> 
<NEXT statement> 
<ST0P statement> 

<rWH c tatomorjt > 

<DATA statement> 
<READ statement> 

<variable 1 ist> 
<read van abl e> 
<INPUT statement> 

<ENTER statement 



<PRINT statements 

<type statement> 
<print 1> 
<print 2> 
<print 3> 
<print expression> 



<string variable> 

<string variable>|<literal string> 

GOTO <sequence nurr.ber>| 

GOTO <expression>OF<sequence list> 

<sequence nurrber>| <sequence list>,<sequence number> 

GOSUB <sequence number>| 

GOSUB <expression>OF <sequence list> 

RETURN 

FOR <for variable>=<initial value>TO<final value>| 
FOR <for variable>=<initial value>TO<final value> 

STEP<step size> 

<simple variable> 

<expression> 

<expression> 

<expression> 

NEXT<for variable> 

STOP 

END 

DATA<constant>| <DATA statements <constant> 

READ<variable list>|READ<file reference^ 
READ<file references <variable list> 

<read variable>[<variable list>,<read variable> 

<variable> | <destination string> 

INPUT<variable list> 

ENTER#<variable>| 

ENTER<vari abl e> , <vari abl e> ,<vanabl e> J 
ENTER<variable>,<variable>,<string variable>| 
ENTER#<vari abl e>,< van abl e>,< variables 

<string variable> 
ENTER#<variable>,<variable>,<variable>,<variable> 

<type statenr,ent>| <file write statement>| 
PRINT <f ile reference> 

<print 1> j <print 2> 

PRINT) <print 2>,j<print 2>;|<pnnt 3> 

<print lxprint expression> | <print 3> 

<type statementxl iteral string> 

<expression>jTAB( <expression>) | <source string> 
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<file write statements 



<write expression> 
<RESTORE statement 

<DIM statement> 

<COM statement> 

<com list element> 
<dimspec> 

<bound> 

<DEF statement> 

<FILES statement> 

<name> 

<REM statement> 

<CHAIN statement> 
<MAT statement> 

<MAT READ statement 

octual array> 

<dimensions> 

<MAT INPUT statement 

<MAT PRINT staten>ent> 
<MAT PRINT 1> 

<MAT PRINT2> 



PRINT<file reference^, <write expression>| 
<file write statements <write expression>| 
<file write statement>;<write expression^ 
<file write statement><literal string>| 
<file write statement><literal string> 

<write expression> 

<expression>|END| <source string> 

RESTORE | RESTORE<sequence number> 

DIM<dimspec> | <DIM statement>, <dimspec> 

C0M<com list element>| 

<C0M statement>,<com list element> 

<simple variable>|<string simple variable>| 
<dimspec> 

orray identifier>(<bound>) | 

orray identifier>(<bound>,<bound>) j 

<string simple variable>(<bound>) 

<integer> (see rule 4) 

DEF<f unction identifier>(<parameter>)=<expression> 

FILES<name> | <FILES statement> ,<name> 

a string of 1 to 6 printing characters> 

REM<character string> (see rule s) 

CHAIN<name>|<CHAIN $<name> 

<MAT READ statement |<MAT INPUT statement | 

<MAT PRINT statement | <MAT initialization statement 

<MAT assignment statement> 

MAT READ octual array>j 

MAT READ<file references octual array>| 

<MAT READ statements <actual array> 

<array identifier>| orray identifier>(<dimensions>) 

<expression>| <expression>,<expression> 

MAT INPUToctual array >| 

<MAT INPUT statements <actual array> 

<MAT PRINT 1 > | <MAT PRINT 2> 

MAT PRINT<array identifier>[ 

MAT PRINT<file reference>; orray identifier>[ 

<MAT PRINT 2><array identifier 

<MAT PRINT 1>,|<MAT PRINT Is 
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<MAT initialization 

statements := MAT<array identifier>=<initialization function>| 
MAT<array identifier>=<initialization function> 

(<dimensions>) 

initialization functions : = ZER|CONjIDN 

<MAT assignment 

statement (rule 6) ::= MAT<array identifier>=<array identifier>| 

MATorray identifier>=<array identifierxmat operator> 
<array identifier>j 

MATorray identifier> = INV(<array identifier>) 
. MATorray identifier>=TRN(orray identifier) [ 
MAT<array identifier>=(<expression>)*orray identifier 

<mat operator ::= +1-1* 
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